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QUICK LOOK-UP OPERATING INSTRUCTIONS 


3 A NABSTRBGT LOOK UP THE FOLLOWING SECTIONS: 


A 
"en OPERATOR ACTION 
SWITCH 


OPTIONS 
MORE COMPLETE EXPLANATION REFER TO ie TASLE OF 
TENTS BELOW AND THE FOLLOWING DOCUMENT 


TABLE OF CONTENTS 
ABSTRACT 
REQU NTS 
E T 


QUIPMEN 
PRELIMINARY PROGRAMS 
EXECUTION TIME 


STARTING ADDRESS 


PROGRAM CONTROL MODES & OPERATOR ACTION 


PAPER TAPE 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACTLI 
DRIVE SELECTION 
DRIVE-LESS TEST 
SWITCH OPTIONS 
SCOPE LOOPS 
PROGRAM STRUCTURE 
T-UP_PHASE 
DRIVE DEPENDENT CONTROLLER TESTS 
ERROR REPORTING 
ERROR INTERPRETATION 
HANDLERS AND COMMON ROUTINES 


aaa hs aN 


TIME DELAY 
WAIT re NINTERRUPT ROUTINE 
ited 


TTY HANDLER (170), ERROR TYPEOQUT ROUTINE 


POWER DOWN/POWER GP ROUTINE 
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UNEXPECTED TIMEOUTS 8 RK11 INTERRUPTS 
QUICK VERYFYING MODE 
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ABSTRACT 
Beds Hols a oar ‘offer vive Ral 
frais UBGle tesT-1h I Rah E St 


mt 
Wee TesT-t 
A COMPLETE PROGRAM AND BOTH 


OF DETEETING FAULTS IN THE DRIVE ALSO. 


USED CORRECTLY THIS PROGRAM CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 


ee ed ed et ee ed 
Cee ah mg =~ 
- Onwruw cou © 


ru 
w 


REQUIREMENTS 
EQUIPMENT 

POP11 WITH CONSOLE TELETYPE. 

8K OF MEMORY 

RK11 CONTROLLER (C OR D) 

RKOS ORIVE“S OR SIMULATOR/S 

DISK PLATTER - NEED NOT BE FORMATTED. 
PRELIMINARY PROGRAMS 
RK11 BASIC LOGIC TESTS-I 
EXECUTION TIME 
ERROR FREE FIRST PASS 4760 WITH CORE MEMORY 


ON POP 
TAKES Perna TERY Ae TWO wae CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEM HORIE 


1 
i 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
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STARTING ADDRESS 


200 FOR ANY MODE OF OPERATION. NORMAL START UP WITH 
ALL SWITCHES DOWN. 


tO Nor Une tofur G.000 sd 


mn 
wo 


PROGRAM CONTROL MODES & OPERATOR ACTION 


PAPER TAPE LOADING 
RKDP DUMP MODE 
ne CHAIN MODE 


0 8 0 = 
GEER 
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4.1 PAPER TAPE LOADING 
4.1.1 LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 


FOR .ABS TAPES. 
4.1.2 teers SURE THAT Late eee TN 10 ‘BE CHECKED ARE LOnpeD 


CHECK PERT wat T 'WRT PROT OF LIGHT” ON iHESE STORIES: is OF OFF: 
PUT DRIVES THAT ARE NOT TO BE TESTED ON LOAD’. 


4.1.3 LOAD ADDRESS 200 


4.1.4 SET SWITCHES IF DESIRED (SEE SEC 7.0) IF TESTING ON 
SIMULATOR PUT SW 10 UP. 


PRESS START. 


4.1.5 THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO), 
‘ THEN THE FOLLOWING QUESTION IS ASKED: 


DRIVES TO BE TSTED? 


THE USER SHOULD TYPE IN THE DRIVE NUMBERS THAT ARE 
N *RUN’ AND TO BE TESTED. CARRIAGE RETURN SHOUL 
ERMINATE THE STRING. IF AN RK-OSF IS TO BE Teese 

TYPE THE SUFFIX ’F’ WITH THE FIRST DRIVE OF THE PAIR. 

FOR EXAMPLE, IF DRIVES 2 AND 3 ARE ON AN RK-OSF, TPE 


eet age Raa eect fv one temeeteame & 


EXMP: DRIVES TO BE TSTED? 0,1,2<CR> 
THE DRIVES DO NOT HAVE TO BE IN LOGICAL ORDER. 
EXMP: DRIVES TO BE TSTED? 2,4<CR> 


NUMBER. TTB Boe Aer HA HAVE TO BE ORIVE are vt mee 


EHUS A NORMAL SEQUENCE WITH DRIVES 0,1. RK11D WOULD 


_ 


Be 


‘ 


RK11 LOGIC. TESTS-11 NAINDEC-11-DZRKK-C 
ORIVES TO BE TSTED? 0,1<CR> 


4.1.6 THERE IS A “RUBOUT" HERE TERS TH WHIC Hh Bit Obs RUBBING OUT 
NUMBER OF C THA TYPED IN WRONG. 
THe RUBBED OUT CHARACTERS ECHOED BACK WITHIN 


trururururororufrr 
2 02 bs b= 0 2 bo 
00 NOUN £ WHO 


RES 


“tU" DELETES THE ENTIRE LINE 


ron 


err ee 2 s2-e- ae 


pores War 
— 
! 
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4.1.7 IF REPLY TO ANY OF THE ABOVE QUESTION IS INA WRONG 
FORMAT (EX: GlecCR> +O,8cCR), O,ACCR> 4 MCR ETC), IT 
IS AUTOMATICALLY REJECTED, A "92" I$ PRINTED OuT; 
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THE CORRECT ANSWER CAN NOW BE RETYPED AGAIN. 
THE DRIVE NUMBER BEING TESTED OUT IS PRINTED: 


DRIVE N ;N=O,1...7 
IF THE DRIVE IS AN RK-OSF, AN F IS APPENDED 
AT THE END OF A PASS THE FOLLOWING TYPE-OUT OCCURS 
END PASS # X 
RE X= PASS NUMBER (1,2,3---), CONTROL 
OF "THE PROGRAM 


WHE IS PASSED 
TO THE BEGINNING AM AND RE-EXECUTION 
BEGINS. NO QUESTIONS ARE TO BE ANSWERED AGAIN. 


Fy FREE PASSES OF THE PROGRAM APPEAR AS SHOWN 


OGIC TESTS MAINDEC-11-DZRKK-C 
TO BE TSTED? 


RKDP DUMP MODE 
THE PROGRAM IS LOADED INTO THE MEMORY BY THE RKDP 
MONITOR 


START AS NORMALLY USING SA 200 

THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO.). 
ON FINDING OUT THAT THE LOADING WAS BY RKDP (DUMP 
MODE), THE FOLLOWING MESSAGE APPEARS: 

REPLACE DRO RKDP-PAK BY OTHER, TYP CR WHEN DONE 


B etve 0 HAS ae’ nee TESTED THE RKOP PACK ON THA 
au oe fiat ENABL Y ANOTHER PACK, THE pai 
itp U ON SER 


(BECAUSE RKDP WR 
PROTECTS DRIVE 0) 
IF DRIVE 0 IS NOT TO BE CHECKED THEN THE MESSAGE - 









OZRKKC. 


tere ett 





WQWWWOIWWWG 
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WDONMU£CUWIM-O 





POSSE RLERES 





MAINDEC MACYL1 &7(732) 


16-SEP-76 16:00 PAGE 9 


4.3 


4.4 


5.0 


6.0 





101 


SHOULD BE IGNORED AND A CR TYPED IN. 


AFTER THIS, THE SEQUENCE OF QUESTIONING IS AS 
EXPLAINED fa SEC 4.1 ee 


IT IS_ IMPORTANT TO ROT THAT RKDP PACK ON DRIVE O 
PEMD BE REPLACED THAT DRIVE SHOULD NOT BE 


RKDP CHAIN MODE 


re “oe S_CHAIN-LOADED FROM THE RKDP PACK ON 
FTER THE PROGRAM IDENTIFIES ITSELF THE 
POLLOWING PRINTOUT OCCURS. 


DRO NOT TSTD 


THERE IS NO OPERATOR INTERVENTION REQUIRED. THE 
PROGRAM FINDS OUT THE NUMBER OF DRIVES PRESENT. 


ACT11 MODE 


THE PROGRAM IS LOADED BY THE ACTI1 MONITOR. ON 
STARTING IDEN IFIES ITSELF, ASCERTAINS THE NUMBER 
OF DRIVES AND PROCEEDS WITH ‘THE EXECUTION OF THE 
TESTS AS BEFORE. 


DRIVE SELECTION 


IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR. 
TESTING, PUT THAT ORIVE ON *RUN’, "WRITE ENABLE’; - 
PUT REST OF THE DRIVES ON ’LOAD’, TE LED 
IN REPLY 10 THE QUES- TIDNVES” TO BE TESTED?) 

TYPE IN THE DRIVE NUMBER FOLLOWED BY CR. SEE 


DRIVE-LESS TEST 


USE RK11 BASIC LOGIC TEST-I, WHICH IS ACTUALLY THE 
Se tee OF HE TWO-PART RK11 BASIC LOGIC TESTS. 
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33 “ 7.0 SWITCH OPTIONS 
= tte Be PROGR i Gi obra Se ee ce 
ES ¢! aie ihe SoFTWaRE™ oi TES RAE CONTROLLED TeRoUGH OUGH &k KEveoARD 
aus roe orig nee ee Re Tee ¢ Pag enrets 
343 "SOFTWARE? SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
et | TO THE PRONE? FROM THE SUI TCH ENTRY ROUTINE. 
ae Paks "SR = NNNNNN NEW = 
34g one. . EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
349 : THAGE MUST BE ENTERED. LEADING ZEROS ORE NOT REQUIRED. . 

“CONTROL U FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 


DURING SWITCH ENTRY 


ON PROCESSORS WITH HARDWARE SWITCH ae SM THE 'SOFTWARE’ SWITCH 
REGISTER 4 = USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
"UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL Q THE 
bE FOLLOKED REGIST TER AND THE PROCEDURES DESCRIBED A ABOVE MUST 


ON E : 
LOOP ON TEST 
SW INHIBIT ERROR PRINTOUTS 


SW<12>=1 CYCLE ON ERROR TO THE PREVIOUS 
*SCOPE’ STATEMENT 

SW<11>=1 NHIBIT ITERATI 

SW<10>=1 ESTING ON SIMULATOR 

SW<09>= LOOP ON SPECIFIC E 

SW<08>= LOOP ON TEST AS PER SW<07:00> 

SW<06>= - DROP THE DRIVE AFTER MAXIMUM 
ALLOWABLE NUMBER OF ERRORS OCCUR 

7.1 SW< 15> 
THE PROGRAM HALTS ON ENCOUNTERING AN Poe AFTER 
TYP Mas! ne QUT THE ERROR MESSAGE PERTINENT 


INFORMATION. PRESSING “CONTINUE”” RESTORES NORMAL 
OPERATION OF THE PROGRAM. 





a eee eee - - _ 


sat = 
DZRKKC 
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7.2 


7.3 


7.4 


7.5 


- 7.6 


7.7 


SW< 14> 


THE PROGRAM LOOPS ON THE SUBTEST THAT per 
EXECUTED WHEN THE SWITCH IS PUT ON. B ses Birree 
USED NORMALLY ALONG SW 1S. SEE SEC 8 


SW <13> 


THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
LEER tai 9) LOOPING ON TEST (SW 14) OR LOOPING ON 


SW <12> 


it SWITCH ALLOWS re # tar TO CYCLE FROM THE 
POINT OF ERROR TO THE PREV OS 5 oe eee Soe 
AT THE BEGINING. “F THE aatest. T WIL Be ui ine AGAIN 

ENO AGAIN SEE SEC 8.0 FOR Heer a SCOPE oe 


SW <11> 


EACH SUBTEST WILL BE EXECUTED ONLY ONCE. NORMALLY 
RF THE FIRST PASS, EACH SUBTEST IS ITERATED A 
(USUALLY 50, 5 IN SOME CASES). 
Lael THe SHITeH TNHIBITS ITERATIONS, SO THAT 
QUICK PASSES CAN BE MADE. 


SW «10> 


THIS SWITCH WHEN SET INDICATES THAT TESTING 1 

ON AS THE SWITCH SHOULD BE 
BEFORE START- ING THE PROGRAM NOTE THAT. RCL 
NOT COMPATIBLE WITH THE SIMULATOR. 


SW <09> 


TH 
PAR oo oan TERS ar ST I 
DIFFERENT YOU_WANT TO SCOPE 


ON THE 

PARAMETER INE E : BEING HR TTEN 
ONG READ BAC FOR ace S FROM 

PATTERN g, BAC 1S GIVING MIGHT NOT’ want TO 

UGH THE S60 TERNS, BEF OR HITTING ERROR ON 


GO_ THRO 5 
THE S61TH PA ATTERN IN IN “TAT TS CASE SW 3 WILL GIVE YOU 
A SCOPE LOOP ON THE S61TH PATTERN ONLY 
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7.8 


7.9 


8.0 


SW <08> 
Bers TS yeeo yy. Tatewe A PARTICULAR TEST (AS 
Mie te test, at i 7 a3 SELECT pie Suton eae 


ULD BE 
SELECTING TEST 18° aut’ THe UBREVIOUS. ests. tie th 


~ WILL BE EXECUTED. 


SW< 06> 


THIS SWITCH ALLOWS THE PROGRAM ROP_A DRIVE FROM 
T SELECTION Bf Ai ESTING OAFTER REX PU 
ALLOWABLE ERROR COUN AL NUMBER OF ERRORS) 0 
THAT DRIVE IS_EX CEEDED. " SMe im MUM ALLOWABLE ERROR 
COUNT IS 5S, AFTER S ERRRORS HAVE OCCURED DRIVE 

IS DROPPED’ AND A MESSAGE (DRIVE # XXX DROPPED) IS 


SCOPE LOOPS 
THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 
1. SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST 


2. SWl2: LOOPING IS DONE FROM THE POINT OF ERROR 
BACK TO THE PREVIOUS SCOPE’ STATEMENT. 


3. SWO9: PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 
SEE SEC. 7.7 


EXAMPLE: 
TSTl: SCOPE 


INITIALIZATION 
ERROR 1 

ERROR 2 

ERROR 3 

ERROR 4 
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TsT2: SCOPE 


THE SEQUENCE OF LOOPING FOR DIFFERENT CASES IS 


ras HCH BEFINE THe UNDARY OF A TEST, "UN THIS 


T.1). TEST 1 STARTS AT ’TSTI’ AND ENDS JUST 
BEFORE sta} 


IN THE ILLUSTRATION BELOW --> INDICATES THE POINT 
FROM WHERE RETURN. IS MADE AND LOOPING IS DONE. 


1. ERROR 2 OCCURS, SW 14 SET. 

. -ERROR 2..TST2-->TST1. .ERROR 2..TST2--)TST1... 
@. ERROR 2 OCCURS, SW 12 SET. 

TST1...ERROR 2-->TST1...ERROR2-->TST1... 

3. ERROR 2,3; SW 14 SET. 


TST1..ERROR 2.. eoetainee 3..TST2@-->TST1..ERROR 2..ERROR 
3..1ST2-->TSTi.. 


4. ERROR 2,3; SW 12 SET. 
TST1...ERROR @-->TST1...ERROR @-->TST1.... 
NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 


ENCOUNTERED. THE MORE BASIC AND 1 ae THE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 


Boones 


2B 


5 
S$ 
5 
5 
5 
5 
5 
5 
5 
5 
5 


0 
WO sOuUl£ciIMUH-O 


IN THE ABOVE EXAMPLE NO PART OF THE uSuBeTEST Is 
NG REPEASING DIFFERENT PARAMET ERS 
SO HAPPEN 9 AND 1 THE SAE HP af OF 
E Berone ate THE ene RATE THE 
DIFFERENCE BETWEEN SW 9 AND 12. 


TST1: SCOPE 


INITIALIZATION 
ERROR 1 
MOV #15, SLPERR ;*SLPERR’ CONTAINS 


; THE ADDRESS TO LOOP 
BACK ON ERROR- SW 9 


Re 
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1s: : ---- 
: I 
ER I N REPETITIONS 
TST2: SCOPE ---- 
1. SW 12 SET, ERROR 2 OCCURS DURING K.TH 
REPETITIONS 


TST1..1,2...K.ERROR @-->TST1..1,2...K.ERROR 2-->TST1.. 
2. SW 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1$..K..ERROR @-->1$..K..ERROR 2-15... 


9.0 PROGRAM STRUCTURE 
THERE ARE THREE DISTINCT PARTS OF THE PROGRAM. 


SET-UP PHASE we, 
DRIVE-DEPENDENT CONTROLLER TESTS 


3.1 SET-UP PHASE 


SETTING UP OF INITIAL POINTERS, VECTORS, TABLES IS 
DONE wa THIS PART. IN THIS SECTION THE D DECISION IS 
MADE BOUT THE | PROGRAM MODE-PAPER KDP DUMP 
reat N . Th if MBER For NOR RON-INTERVENT ON ROD ~ 
coh ium eB i Ufeer OUT. FLAGS ARE SET theo INDICATE 
DRIVES ARE TO BE TEST 


3.2 DRIVE DEPENDENT CONTROLLER TESTS 


THIS SECTION FORMS A MAJOR PART OF THE PROGRAM 
WHEREIN MOST OF THE CONTROLLER IS CHECKED. 


JUST BEFORE ENTERING THIS SECTION THE PROGRAM FINDS 
Ou H DRIVE IS TO BE CHECKED. IF IN RKDP CHAIN 

MODE, DRIVE 0 IF PRESENT, IS SKIPPED AND THE NEXT 
AVAILABLE DRIVE IS SELECTED. 


THE ORIVER re BEING TESTED 3 PRINTED OUT: 
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THE TESTING IS DONE IN A LOGICAL HIERCHY, SIMPLER — 


THINGS FIRST, THEN MORE COMPLEX AND SO ON 


OF THE TESTS THE ENTIR Sk PACK IS 
FORMATTED, one ae fre Me M a “EOF ERROR coe Thos, 
THE FIRS EVERY aa rp ye 

PS bO-HE oe OREFLEETING THe E AboRESE oF 


IN_THE Next TEST THE HEADERS FROM THE ENTIRE PACK 
ARE READ AND CHECKED FOR CORRECTNESS. IN A 
VERIFIED. TEST ALL THE PSUEDO-HEADERS ARE READ AND 


ALL THE FUNCTIONS ARE CHECKED OUT. ‘SEEK’ IS 
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (HIGH, 
LOW). VAR RORS LIKE ’NXD’, ‘NXC’. 
ARE SIMULATED AND CHECKED. 


HARDWARE POGIC IS CHECKED USING ALL THE DRIVES 
THAT HAVE BEEN INDICATED. 


THE END OF THIS SECTION, A CHECK IS MADE IF ALL 
TNOICATED DRIVES HAVE BEEN TESTED. IF NOT, CONTROL 
IS TRANSFERRED TO THE BEGINNING OF THIS SECTION. 


THUS ONE PASS OF THE PROGRAM INVOLVES DOING 

1. SUBTEST #1 ONCE gs 

2. _DRIVE-DEPENDENT TESTS FOR ALL THE SELECTED 
DRIVES. : 

ERROR REPORTING 

THE ERROR TABLE STARTING AT SERRTB _CONTAINS 
INFORMATICN PERTAINING TO EVERY ERROR THAT CAN 
OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FO 


A. EM - ia IS A POINTER TO THE ERROR MESSAGE TO 
BE TYPED OUT WHEN THE ERROR OCCURS. 


B. OH - THIS IS A POINTER TO THE DATA HEADER TO SE 
TYPED OUT. 








ENTRIES. 











DZRK 
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NUMBERS GIVEN WITH 





& tals IS A POINTER TO THE DATA WHICH IS TO 
BE TYPED TYPED OUT UNDER THE HEADERS. 


TH A TERMINAT GNIFYING THE END OF 
Pe Prem’ IS IS A TERMINATOR SIGNIFY! 


ERROR CALL IS aN EMT INSTRUCTION WITH ITS LOWER 


eT E ENCODED TO or E on ERROR NUMBER. THUS 


WOULD BE (EMT+1) 


EVERY ERROR C § 10 BN ITEM IN THE ERROR 
THUS "E aR i ye WOU UD CORRESPOND TO ITEM 14. 

ae Ea AS POSSIBLE MESSAGES HAVE 
SEEVITYT IASPETE *cuamTY oe i aia FOR 
CAN L THRE ERROR e ih THE REED 
THUS FOR MERROR 4" cen ei e TaBLe Ca 

LOOKED Ope ae oad TION 

EXECUTED A TRAP en, | HE ue ERR iB LOCATED 
a T $ERROR WHICH PROCESSES THE ERROR” CALL. SEE SEC 


E 104 


ERROR INTERPRETATION 


WHENE VE’ ERROR MESSAGE IS PRINTED OUT, ALL 
REGISTERS ano BOnHeR DATA PERTAINING TO THE ERROR ARE 
ALSO GIVEN. RKER. INDICATE THE CONTENTS 
OF THE CORRESPONGING REGISTERS AT THE TIME OF ERROR. 


EVERY ME’ CONTAINS A PC. THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
ATED. RROR. SAGE 





iz 


REPORT : RATION "OND ON AaREE i 
EXAMINATION Mor He DATA Given WILL BE CanTADaY VERY 
HELPFUL__ IN oe aan tee THE FAULT. BRIEF 
EXPLANATION OF WHA Tat BEING CHECKED IN THE SUBTEST 
IS GIVEN AT THE BEGINNING OF EVERY SUBTEST. ALL THE 
RROR MESSAGES ARE IN OCTAL. 











DERKKE-PLL ; MACYL1 @7(732) 16-SEP-76 16:00 PAGE 17 


12.0 © HANDLERS AND COMMON ROUTINES 


THE COMMOSED ape USED IN THE PROGRAM ARE 
CALLED IN TWO WAYS. 


A. AS A SUBROUTINE THROUGH *JSR’ CALL 
B. THROUGH A ’TRAP’ HANDLER 
* TRAP HANDLER — 
OMMONLY USED ROUTINES IN. THE 
I 


Sits US ies De FUE ae eat ol 
N_A CALL FOR 


TRAP HANDLER 
ARAP's THE RAROLER PICKS UP eine nee 


THE “CALL INSTRUCTION" AND 
arnt ine ADDRESS OF THE ROUTINE TO GO TO FOR 


STRAP RES RE SR 


SCOPE HANDLER 
THE "IOQT’ TRAP I 
WHEN ’SC I 
MEMORY LOCATION HE S Se 18 

$SC Fue” or TCH HENCE Nee THE 
HANDLER CI INMIBIT ITERATIONS 
ETC. RS 2 AND LAGS WHICH ARE 


ROJUSTED. | I AR 
PROGRAM IONS Ne THE VARIOUS 
POINTERS AND FLAGS MA ORRECTLY ADJUSTED. 


ERROR HANDLER 


me ct a By Mell ENcObeD 19 TO sive DIFFERENT ERRO 1 ERROR 


THE ERROR STATE a stTESt  O ExEcuTeD, 
The POINTER OGRE fabs eo M uae, FAN 


Helga genes eee at ae i On Fanon, 


0+ 6-2 b= bo Bw 


? 
7 
? 
7 
7 
7 
ré 
7 
7 
7 
7 


00 NOUS lume 


ow dove 
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12.4 


12.5 


12.6 


AN ERROR MESSAGE IS TO BE TYPED OUT AN EXIT IS 
neo ot THE ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT 


CONTROL RESET ROUTINE 


THE CALL me RTs ROUTINE o “CNT.RESET” AND IS AN 
ENCODED INSTRUCTION. WHEN “CNT.RESET” IS 


SreCuTeD ie wien Aya ROUTING 3 fe ee AT 
I a Mc Me eB 


No! a HiTHIN AC C rian Tih i at cat 
con. SET" cat S LOC TING TIKE 
at Ti ANSE e PE MEME NR Bad 


CONTROL READY ROUTINE 


THIS ROUTINE AF ou eed BY “CNT.RDY” (AN ENCODED 
im ae LOCATED AT “CN.RDY". THE 
ONTROL READY TO SET AND WHEN 

IT SOEs. WATS. IF CONTROL READY DOES NOT SET 
WITHIN A’SPECIFIED TIME AN ERROR MESSAGE IS GIVEN 


CNTRL RDY DION’T SET 
PC = XXXXXX RKCS = YYYYYY 


THE PC IS THE LOCATEON AT WHICH THE “CNT.RDY" CALL 

IS LOCATED. THE WAITING TIME IS 949 MS FOR 11720 
189 MS FOR 1174S WITH BIPOLAR MEMORY. 

DRIVE RESET ROUTINE 

Pe BNE” Bie ARe ya] efecut 

ea net nee tit ROY e me Fie fe 


EX THE 
AND 991 MS FOR 11/45 WaT NBIPOLAR 
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12.7 


12.8 


12.9 


TIME DELAY ROUTINE 
cal Test PROVIDES A VARIABLE TIME DELAY. 


Ba Gebeo'8 WBE PG! IP ACU He 


TING oer AY) iv * ald 2 TO DECIMAL 
Let fm tsar i eR BE DORE By SIPC 
VARIABLE ’ 
WAIT FOR INTERRUPT ROUTINE 
THIS ROUTINE PROVIDES A VARTABLE TIME LIMIT DURING 
WHICH aan INTERRUPT MAY OCCUR. THE IS 


WAT. INT N=1 TO (1777777 (OCTAL) 
WAITING tTne=7. S TIMES( X ) NUS FOR 11720, 1.5N US 


FOR 11/4S UPON ENTERING THE ROUTINE CPU PRIORITY IS 
DROPPED SO THAT RK11 CAN INTERRUPT. 

OTHER ROUTINES | 

THERE ARE OTHER COMMONLY USED ROUTINES AS LISTED 


STYPE: 
TYPE ROUT 


INE FOR TYPING OUT ASCII STRINGS. 
LOCATED AT “STYPE™ 
CALLED BY “TYPE” 


ROUTINE FOR TYPING OUT OCTAL NUMBERS. = 


Bae a AT “STYPOC™ 
CALL 


STYPDS: 

ROUTINE FOR TYPING OUT DECIMAL NUMBERS. 
LOCATED AT “STYPDS” 

CALLED BY “TYPDS” 


SROLIN: 
Maly AY, “srOLI ASCII STRINGS FROM TTY. 


ROUTINE "FOR TYP ." OUT ERROR MESSAGES. 
LOCATED AT SERRTY' 
CALLED BY “JSR SERRTYP" 


MAINDEC-11-DZRKK-C 
DZRKKC.P11 


FEO eA R CCE E dal Volo sana ee CRT Eee COMM CR MRSS Tea ToeeS 
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ee eae et -_~ 


GOe 
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13.0 


14.0 


4 NE FOR com POWER FAILURE. 
e a WHEN THERE IS A POWER FAILURE. 


SPWRUP: 
route FOR HANDLING POWER UP AFTER A POWER FAIL. 
CALLED WHEN POWER RETURNS AFTER HAVING GONE DOWN. 


UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS 
iy AN ee | TERE OUT CURS, THE PC AT WHICH 


TIME _OUT DIS ee AND’ THE PROGRAM HALTS. 
IF IT IS INTACT, IT CAN RESTARTED BY PRESSING 


CONTINUE. 
F AN NTERRUPT PROGRAM 
Hope BET Fhe Po At watcd THE rHERRUPT "Hime tn 

THEN HALTS. SSING CONTINUE WO RESTART THe 
PROGRAM GINING. Su S- LOOPING CA Y 1S 
PROVIDED AS A TROUBLE SHOOTING 

QUICK VERIFYIN® MODE 

THE FIRST ffs OF THE PROGRAM 15 A A QUICK VERIFYI 

MODE . Lcd TESTS ARE ONLY ONCE 
SUBSE QUE s THE TESTS FRE "He RATED (NORMALLY 

50 CASES). THUS THE FIRST 


eth SOME 
TAKES A A SHORTER ER yo! TO COMPLETE, WHEREAS SUBSEQUEN 
Passes THK TIME. 


iS baa fe 


sub IGITA, ae 
MAYNARD, MASS. 


Tenor BY JIM KAPANIA 
;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
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Ko. 
83 $ NPACKAGE (MAINDEC=11-DZQAC-CO),MAR 21, 1976. 
898 j RIRNURRY 1975 
506 | REVISED olin, , 1976 3 ? 
302 “SBTTL OPERATIONAL SWITCH SETTINGS ? 
304 ‘ i SWITCH USE 
906 f % 1S T ON ERROR 
307 F 1% 14 , oN EST 
; ti 13 NHIBIT ERROR TYPE 
903 + 12 CYCLE ON TO PREVIOUS 'SCOPE’ STATEMENT 
1 1! INHIBIT ITERATI 
* 10 TESTING ON SIMULATOR 
+ : LOOP ON FECT IN. SHRC7:0> 
i 6 bROP SHE BRIVE TP HORE THAN 5 ERRORS 


506393 EE EEE EEE EE 
;YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. ashy) 
I 
IOUTCIN THe, ERROR PESGAGE, ADJACENT ERROR NESsRGES fF FOLLOWED 
;CAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAUL 
NS, (SESAME TIT SS. 
-SBTTL ACTL1 HOOKS 


OOOO OWOWWW 
bh ps bh a de bs Be he 
WONWUCUWITUH-O 


o BELRLSARERESRSHE KEE LERAS EES EL EF LASSE EERE SEE EX ERE RE SE RELKEERR ER SES 
HOOKS REQUIRED BY ACTI 


920 
<2 
924 
ee 
928 
929 
930 
931 oococe - S ;SAVE PC 
932 000046 = 
$33 O000%6 9203s2 s;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
934 000052 sen 0 
935 o000S2 000000 : 5 32)SET LOC.S2 TO ZERO 
936 =$SVPC +: RESTORE PC 
327 .SBTTL BASIC DEFINITIONS \, 
939 pFINITIAL ADDRESS OF THE STACK POINTER ##* 1100 #4 ery 
940 001100 STAcK= 1100 
941 “EQUIV EMT, ERROR ssBASIC DEFINITION OF ERROR caLL 
aie “EQUIV I0T, SCOPE ::BASIC DEFINITION OF SCOPE C 
Quy p #MISCELLANEOUS DEFINITIONS 
aut TE ye | $s EOD FOR CINE FEED = 
a4 j Dae CRs i coDE Foe FOR Car RGe RETURN-LINE FEED 
Ss H = 
348 1 PSs I Oe STAT WORD 
950 .EQUIV PS. PSW 
951 177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 


ee ed -_— =~ OOO ——————————————————————e———————eeeeVee eee 


Ya 
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11 27 
DZRKKC.P11 BASIC DEFINITIONS 
PIRQ= 177772 PROGRAM INTERRUPT REQUEST REGISTER 


Baier: 15585  HRRGHARE Brapcay REGISTER 


;¥GENERAL PURPOSE REGISTER DEFINITIONS 
RO= “0 * GENERAL RE 


an BR 


1 LEVEL DEFINITIONS 
40 
100 
140 
200 
240 


totems 


~' 
fa 
= 
Oo 


a 
5 


PAS 
2223223 
iinoiok 

PAP 


PERE REET 
Bh 
am 


300 
340 


~< 
re 


40000 


O-—Mw cur 
Day 


mmammmmmmm 
SSeeseeee 


= Rep =anegpes 


BeREenrees 


™m 
e 
es 
< 


975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
98S 
986 
987 
988 
989 
990 
931 
992 
393 
994 
995 
996 
997 
998 
999 
009 
001 
ie 
004 
00S 
006 


;¥DATA BIT DEFINITIONS (BITOO TO BITIS) 
BIT1S= 100000 


Bb BH hh he 


8 
_ 
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DZRKKC.P11 BASIC DEFINITIONS 
1008 040000 BITI4= 40000 
1009 BITI3= 20000 
1010 010000 BITle= 10000 
1911 904000 BITI1= 40 
1k apt Bitds= 
1014 000400 BITOs= 400 
ate ttt Bite oS 
ii pie | 
1018 IT04= 20 
1019 000010 BITO3= 10 
1020 000004 BITOe= 4 
1oee po00I Bhim: | 
1023 -EQUIV BITO9,BIT9 
1024 -EQUIV BITO8,BIT8 
1025 -EQUIV BITO7,BIT7 
1026 -EQUIV BITO6,BIT6 
1027 -EQUIV BITOS,BITS 
1028 -EQUIV BITO4Y,BITY 
1029 Beauty Bt Tes ett 
1030 -EQUIV BITOe,BITe 
1031 -EQUIV BITO1,B1T1 
os -EQUIV BIT00,BITO 
1034 *BASIC “CPU” TRAP VECTOR ADDRESSES 
1035 000004 ERRVEC= 4 35 TIME QUT AND OTHER ERRORS 
1036 000010 RESVEC= 10 s RESERVED AND ILLEGAL INSTRUCTIONS 
1037 000014 TBITVEC=14 $3 “Tt” BIT 
1038 000014 TRIVEC= 14 ; TRACE Ue 
1039 000014 BPTVEC= 14 ;;BREAKPOINT TRAP (BPT) 
1040 000020 IOTVEC= 20 t POUER PIL TRAP (IOT) ##SCOPEx# 
1041 000024 PWRVEC= 24 ; POWE + 
1042 000030 EMTVEC= 30 : s EMABTOR (EMT) ##ERROR## 
i043 000034 TRAPVEC=34 rit weve 
1044 000060 TKVEC= 60 KEYBOARD VECTOR 
1045 000064 TPVEC= 64 ; thy PRINTER VECTOR 
1046 000240 PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
ieee -SBTTL TRAP CATCHER 
1049 ooo000 
1050 ; #ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT™ 
1051 :*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
its anes j #LOCATION f CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
1054 000174 900000 DISPREG: | WORD 0 ;;SOFTWARE DISPLAY REGISTER 
ite 000176 000000 Sunes ;HORD 0 SCE ;;SOFTWARE SWITCH REGISTER: 
108? 000200 000137 002636 ine aesTaRT ; SjunP TO STARTING ADDRESS OF PROGRAM 


ee eee ee oe 


-* 
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1058 .SBTTL COMMON TAGS 
160 $3 RVLEKRKHRE FLEE RR LES EK LER KELL ESS EH LS KLER SEER LE RSL ELE SEGRE LS SLES EES 
: Obl jATHI TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
1063 : . 
ie gous tm weg START OF COMMON TAGS 
1066 001100 oo0000 SPpass: .WORD 0 *:CONTAINS PASS COUNT 
1068 Oo1103 _ 000 SeRrte; “BYIE S EONTAING ERROR FLAGS 
10693 cigs poonsh sen “WO 5 + EONTAINE SPECT TTERATION COUNT 
lost Srt46 pooooD StPERR: “WORD t CONTAINS SCOPE RETURN FORE 
toes porta ooo SERTIL: -WORD SHRONTRING TOTAL ERRORS DETECTED 
ie BIE oot Erect! ip} ERMAN Beet ee rucrzon 
ie Bes Boe eae ioe 3 eave Sees & Soba 
1078 001124 SGDDAT: -WORD 0 ;;CONTAINS ’GOOD" DATA 
1073 001126 o00000 T: :WORD O :CONTAINS BAD’ DATA 
1980 001139 000000 - WORD 0 :?RESERVED--NOT TO BE USED 
1082 obi 34 sae TOB: :BYTE 0 ssAUTOMATIC MODE INDICATOR 
1083 001135 SINTAG: .BYTE ° INTERRUPT MODE INDICATOR 
0000: 
108S 001140 177570 Wo DSWR ;sADDRESS OF SWITCH REGISTER 
ios? poliaa 497860 Siese ap7eey oP EBD STATHe CY MeCUSTER 
1088 001146 177562 STKB: 1 :TTY KBD BUFFER 
is Galle ives Hs: fee TY BUR IEP FEE: SES 
1091 001154 000 SNULL: .BYTE 0 ss CONTAINS NULL S 
1092 001155 O02 SFILLS: :BYTE 2 CONTAINS # OF FILLER CHARACTERS REQUIRED 
ipsy pories BoB STPFLGs “EVIE. OF tO TPENINALCAVATLABLE™ FLAG (BIT cz sieves) 
1095 001160 900000 SREGAD: 0 + CONTAINS THE SS FROM ie 
1096 *:WHICH (SREGO) WAS OBTAINED 
1097 001162 o00000 SREGO: .WORD O *:CONTAINS (($REGAD)+0) 
1098 001164 900000 SREG1: :WORD O S:CONTAINS ((SREGAD) +2) 
ies Sout Baa fea: ie eave (Beg) 
1101 001172 00000 secu: WORD 0 SIGONTAIN. (CSREGAD)#10) 
- 1102 001174 o00000 SREGS: .WORD 0 *:CONTAINS ((S$REGAD)+12) 
1103 001176 o00000 SREGb: .WORD u CONTAINS (($REGAD)+14) 
Hoe Gotsas popooe srecia: “WORD 0 b EONTAING. (tgnecaD) 228) 
Hide Bish noes SiEGiI: Mond 0 HCOVIRING (SHED 320) 
1108 001210 000000 SESCAPE:0 ESCAPE ON ERROR ADDRESS 
1109 dole1e 077 SQUES: .ASCII 72 :: QUESTION MARK 
1110 001213 O15 SCRLF: ‘ASCII <iS> * CARRIAGE RETURN 
1111 OO1214 ooo0l12 SLF: <A (12> **LINE FEED 
llle $3 PEPEPETETESTSTETTCOTOTTSTST TTT TT TTETCTTTECTETT TEST TTT ETT TTT Te TT 
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113 .SBTTL ERROR POINTER TABLE 
1i5 saTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR. THAT CAN OCCUR 
ii HELOEaT TOR STTeMa. THN NBER InSten Hes Tivdch treW ON The Tee 1S PERTINENT. 
i SH: HechTTRR $8 "Gale" CORTE’ Plt 
1 i ENO ACH ITEM IN THE TABLE CONTAINS 4 POINTERS SERRA INED AS FOLLOWS: 
2 8 COIN 18 TS EES 
2% OF + POINTS 1 THE para FORMAT 


001216 SERRTB: 


;THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 
;USED IN THIS PROGRAM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO 

j THE ITEM NUMBER IN THE ERROR TABLE. THUS "ERROR 1’ IN THE 
;PROGRAM CORRESPONDS TO "ITE 1’ IN THE ERROR TABLE. 

;EMaee’ TS * POINTER TO 3 ERROR oy WHICH WILL BE TYPED 
QUT IN CASE THAT ERROR ee TO OCCUR. THUS FOR ’ERROR 1° THE ERROR 
MESSAGE TYPE OUT WILL BE TIME OUT ON RKI1 REG’. 

;’DH#es’ IS THE p Ma TO THE a BLOCK WHICH WILL BE TYPED OUT 


; IMMEDIATELY THE ERROR ME 
*DT#ee’ ~=SER VES AS A POINTER TO THE MEMORY LOCATIONS WHERE 
; THE I RELEVANT TO THE ERROR TYPE OUTS (LIKE PC, CONTENTS 


NFORMATION 
;OF RKCS ETC.) WILL BE PICKED UP FROM. 
3 LAST ROW CONTAINING °O” SERVES AS A TERMINATOR. 


XAMPLE : | 
;1F_ON See NG THIS proc A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 
;(177400), BECAUSE OF S AULT. THE FOLOWING TYPEOUT WOULD 
OCCUR ON’ THE TEL ETYPES 

TIME OUT ON _RK11 REG 

PC RE 

eeesee = =§=6177400 

‘NOTE THAT #88888 WOULD BE THE ACTUAL PC WHERE "ERROR 1’ IS LOCATED. 


THE ERR ER IS LOCATED AT ’SERROR’. THE ERROR CALL IS AN ’EMT’ 
s INSTRUCT on MT WITH ME ab OWER BYTE ENCODED TO PROVIDE INDEXING TO THE 
: THUS "ERROR = me Fouoo 
: "ERROR 103° IS 104i26 ETC. , 


;ERROR ITEMS TABLE 


b= bb Ob b= b= bb = 0 6 = 8 0 = = 0 = 0 8 0 0 8 bb 0 b= 0 8 0 bb 2 0 bb = 2 th a pe pe ep op em et ae 


SUPA TORO Soe NTN SS SR LOSES SEI PORES BUUREN pts 


ees - 2S tee eee 





Fs 


Gh b= Fh B= PB 
io 
wo 

~ 


NER LOU Oaa~oul eon 


Oo bo be Be bo 0 bo be bs 2 2 fe be bmw 2 bo fhe po 
SWitebetati ptm tet pr itrps} 


oo 


i 


S SHES 


WWW) 
vo 


Bb hs bh sD = bs = Bb bt 8 bb b= bf fs be be hs be bs bw ph he bp pe ho 
oe 


FRR cs Ninin stint See Sn PERS 


aa eee eS ae 
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;ITEM 1 
eet us ;’SIN’ iB SET KER R expe 
nee BH ie enpe Ko REEL Sheea Shrc3 
000000 0 
;ITEM 2 
026635 —M70 ;CNTRL RDY DIDN’T SET m READ/FT FROM DISK ADDRESS 
031475 DH14 > PC RKCS RKER 
paisa tee : SERRPC SREGO SREGI eRe Ge 
;ITEM 3 
025011 EM16 ;RKDA WRONG AFTER Ss 
031431 DHY *PC EXPCT  RECV 
031314 DT2 *SERRPC SREGO  S$REG1 
000000 : 0 
;ITEM 34 
025040 EM21 ;RKDS ERROR 
031575 DH34 3PC RK 
031306 DTl sSERSPC SREGO 
000000 0 
sITEM 6S 
o2e5052 EM30 ;*DPL’ BIT SET, CHECK DRIVE POWER 
031537 DH30 :PC RKCS RKER RKDS 
031344 DTeb :SERRPC SREGO SREGI S$REG2 
000000 0 
;ITEM 6 
025062 EM31 ;’DRU’ BIT SET, CHECK DRIVE 
031537 DH30 :PC RKCS RKER RKDS 
031344 DT26 ;SERRPC SREGO SREGL S$REG2 
eleletue 0 
;ITEM 7 
EM32 ;RKOS? Bir NOT SET 
0315 DH34 :PC RKDS 
031306 OT1 *SERRPC SREGO 
000000 0 
;ITEM 10 
025113 EM33 ;*DRY’ NOT SET 
031711 DH4Y4 3PC RKCS RKER RKDS RKDA 
Bahaed Breo ;SERRPC SREGO S$REGL SREG2 S$REG3 
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1285 ;ITEM LL 
lee? 001316 025133 CC EM34 SOK’ DID NOT SET 
1228 001320 031575 OHH as RKDS 
' . 
ie Ss Ge mo 
1e%e ;ITEM = le 
1e34 001326 925152 | EN3S ;*SEC COUNTR’ DIDN’ T COUNT TO 0 
ue 
ie ine Galsy Brie Elm ead” 
1238 
1239 sITEM 613 
1241 001336 O25205 EM36 =; "SEC COUNTR’ DIDN’T INCREMENT 
1242 001340 031633 DH36 «= $ PC PRSNT-COUNT NXT-COUNT 
1243 001342 031314 OT2 >SERRPC SREGO $REG1 
1244 001344 000000 0 
1245 
eu ;ITEM 14 
1248 091346 025225 EM37 ’SECTOR COUNTER’ INCREMENTED WRONG 
1 001 031431 DH4Y : EXPCTD RECVD 
1250 001352 031314 OTe Ene SREGO  S$REGI 
1251 001354 000600 0 
1252 
1253 ; ITEM 
1255 001356 ? My DN’T =SA FOR THIS SECTOR 
1256 pot sPe 1 ong ie See RKDS 
1257? 001362 031314 OTe *SERRPC $REGO  S$REG1 
1258 001364 00000 
1259 
1260 sITEM 16 
1262 001366 025331 EM41  ;ERROR-’R/W/S RDY’ SHOULD BE SET 
tSeq forsee parser OA EE pepe SRECO 
tSee Bot374 080008 « ; 
1266 
1267 sITEM 17 
1268 
135 Bot a08 1431 ae : PC T RECVD 
ue 
1 BBL ube a3iai4 Bra ;SERRPC SREGO REG 
: 001404 
1274 sITEM 20 
1275 % 
i 001 3 ;UNEXPECTED RK11 INTERRUPT 
1 00141 1 *PC 
1 00141 1 Tel § 3SERRPC 
i 001414 


ee ee ee - - — 
































1307 





ae 


0 2 = 0 0-2 0 0 be 
witht hoe WD NIWU£ WTEC 





0-20-60 20 0— 0 -- 6 — & =< & <b = 6 B= B— & + b < B= = & = 0 BO 2d 8 2 2 0 


RRERROR BEO 
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uw 
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; ITEM 


; ITEM 
; ITEM 
; ITEM 


: ITEM 





bles RDY’ a T SET Aly a DRIVE RESET 
:SERRPC SREGO SREGL SREG2 SREG3. 


cE RE SLY SRL Oy, Fer 
: SERRPC $REGO SREG1 SREG2 SREG3 






s BEER oly nen <p OR ORI VE RESET 
; SERRPC ae $REG1 SREG2 






sRKCS ar st aft inl WAS DONE 
 SERRPC $REGO S$REGI 


3 R/W/S RDY* OID NOT CLEAR 
RKCS_ = RKER OS 
: SERRPC SREGO S$REGi S$REG2 


3eR“W/S ROY’ oa SET aly een OR ORIVE RESET 


K 
; SERRPC SREGO SREG1 SREG2 S$REG3 


;RKDA CHANGED AFTER SEEK 
;PC EXPCTD REGVD 
;SERRPC SREGO 


SREGI 


— 7) 


:*CNTRL ROY’ DION’T CLEAR AS GO WAS SET 
:PC RKCS RKER RK 
'SERRPC $REGO 


$REG1  SREG2 












: 
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;ITEM = 31 5. “ 
026034 EMS4 ees DION’ T SET ON DOING WRITE/FMT STARTING 
RKER RKOS ty 
<OSK-ADRES> SUR SECTR 


SREG1 $REG2 SREG3 
ti SREGS $REGE S$REG> 


rg St EP 


bie 


’ OR _ ON WRITE/FMT STARTING FROM 


RKDS RKDA 
K- > SUR SECTR 
 SERRPC SRECO SREG2 S$REG3 
: SREGH SREGS S$REG& SREG7 


iit 


sRKDA INCREMENTED WRONG ON WRITE OR WRITE — 
:PC EXPCT: ORVS SUR SECTR 
RECVD: ORVS CYL. 

: SERRPC SREGO $REGI G2 $REG3 
;SREGY SREGS $REGB SREG7 


;RKWC DIDN’T OVERFLOW ON WRITE OR WRITE FORMAT 
:PC RECVO 
:SERRPC SREGO 


Boon INCREMENTED. WRONG ON WRITE OR WRITE FORMAT 
: SERRPC SREGO © SREG1 


iRKER SET, ON WRITE “READ/FORMAT 
;PC RKCS RKER —-RKOS 
;SERRPC SREGO SREGL SREG2 


SERRE BRE RIS ll snoe ene cee eee 


3X08 ERROR 
XPCT RECO 
SERRPC REGO  S$REG 


i 
1 
1 
1 
l 
1 
1 
by 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WW) 
het 
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i Be 


;ITEM 40 


cm 
2 


3RKDA INCREMENTE urone READ OR READ FORMAT 

Bevo, BST Cy SUR SECT 
CVO: 

; SERRPC SREGO SREG aREGe $REG3 

;SREGY SREGS REGS $REG 


REBSEIRR 


y= 

& 
o 
-- 


;RKWC on NOT OVERFLOW ON READ OR READ FORMAT 
se Eenpe $8 SREGO SREGI 


> + 0~ 0 < 6 - b= b ~ b> p< 6 -< «© pp 2 p< 9 


Boe 


$ BKBA INGRENG ATED WD WRONG ON READ OR READ FORMAT 
SERRPC $REGO SRECI 


$ JNCORREST WEPOER FROM *SECTOR’ 


iserepc $REGO et SREGE. 


pe 
624 
Ooies0 
00163 
001634 
636 
640 
642 
644 


8888 
Sea 


DATA ERROR 
EXPCT RECVD OSK-ADRES 
: SERRPC $REGO west $REG2 


;°CNTRL ROY’ BION’ T SET ON DGING READ/FMT STARTING 

: FROM <DSK-ADRES> 

eve cs a. BOS ot 
CYL «D 


‘ee fe fey ig Secs 


SECTR 


iF Anal SET ON READ/FMT STARTING 


piv, ot greGd we Resa ee 


; SREGH $REGE 





sak ! 
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1353 SRitTe met ctt fi72 RONG ORIVE ID JN AKDS AFTER SEEK 
1485 001702 031314 pre eee SREGO  SREG1 











145 

1460 001706 927046 EM73.  ;HAROWARE POLL, DRIVE ID BITS(13-15) SHOULD BE CLEAR 

146 001719 031575 DH :PC RKDS 

1 17le 031314 T SERRPC SREGO 

1 001714 } 
1464 I. 
1465 sITEM 51 ys 
1467 001716 027120 EM74 § ;HARDWARE POLL, INTERRUPTING DRIVE # NOT PRESENT 4 
1468 001720 032314 DH74 = PC DRIVE & 

14689 001722 031306 OT! :SERRPC SREGO 

1470 001724 900000 0 

1a7¢ sITEM Se e 

1474 901726 027170 EM7S _—s; DRIVE 8’ DID NOT INTERRUPT DURING HARDWARE POLL 

1475 001 032314 OH74 Ol: DRIVE # 

1476 001732 031306 OTL :SERRPC SREGO 

1477 000000 0 

et 001 M76 CP DID ali? SET AFTER WAS DONE 

1482 O61 peze sn thee $Be RKCS 

1483 01 031306 DT *SERRPC $REGO 












1486 
1487 
14 1 M77 ¢ BOA Fen Bee AFTER 'ORIVE RESET’ 
14 BBL 1431 BHA EX ; RECVD 
1490 001 031314 OTe RRPC SREGO SREGI 
001 0 
1492 
fe ugg sget eg 
UU ue 
Re Bee Rees Ce ae oe eee 
001762 031344 DT2b RRPC SREGO S$REGI 
ues 00 000000 0 


;ITEM §6S6& 

027363 EM101 sCNTRL RDY DID NOT SET AFTER READ CHECK 
031 DH44 RK RKER RKDOS RKDA 
031324 DT20  SERRPC $REGO Gl S$REG2 





FOS 
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4 


Seta Seiat 


pbs fh ps & > fF + = = = b= Be 


Ce eet ee ee ee ee ee oe 


WUNUTUTUNUTUUT 
1 OD “IOP UT £ Ca)! 


alta) 
rt 


0 bs he be Be bs 0 = Bn Be Bw =0 ae be Bs Pe Be bs Pe Fe Be ho Pw Pe bw P= Po 0 2 bo Po 0 b-0 Bo Fo fo he 
Ra SS SRE 
<= pe Ae pect 


cnunin 
un 


rata 
aad 


SIRS SoM oes 


001774 


ERROR POINTER TABLE 


Deeee 


. ; ITEM 
0274, 
13 
ise 
000000 

; ITEM 
031306 

; ITEM 
027467 
032406 
031314 

; ITEM 

1431 
1314 

; ITEM 
Pereat 
031314 
000000 

; ITEM 
027627 
ee 

; ITEM 
027670 
031711 

; ITEM 
31637 
31344 


0 
S57 


ce 


T on READ READ CHECK 


ee Blo BE 


;°CSE’ ON N BEAD CHECK 
:PC 
;SERRPC SREGO 


;RKWC DID NOT ~ ON READ CHECK OR WRITE CHECK . 
:P RECVD RKCS 
S SERRPC SREGO SREGI 


;RKDA INCREMENTED WRONG ON READ CHECK i, 
3PC_ Ss EXPCT = RECVD A 
;SERRPC SREGO REG is 


RKBA CHANGED AFTER READ CHECK 
:PC EXPCT —-RECVD 
2SERRPC SREGO SREGL 


WORD CHANGED we. READ CHECK 


or Seco SREGL 


;CNTRL RDY DID NOT SET AFTER WRITE CHECK 
RKCS RKER RKDS RKDA 


;PC 
;SERRPC SREGO SREG1 SREG2 SREG3 


sHE OR ERR gIT ser AFTER DOING WRITE CHECK 
"PC RKC KER — RKDS 


;SERRPC SREGO SREG1 


S seinetenamnstatsitinlaainiedsh cnienees, aamnememmtioninnee 2 “ pe ————— 
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DZRKKC.P ERROR POINTER TABLE 
ine em 000000 0 
ize ;sITEM 67 
e M A T K ERROR 
aes ut EE mE, 
1567 002102 031344 OT26 SERRPC SREGO SREGI $REG2 
1568 002104 000000 0 
1569 
1320 sITEM 70 
Be 002106 930001 EM113  ;RKDA INCREMENTED WRONG ON WRITE CHECK 
aD | 002110 03143! DHY :PC EXPCT RECVD 
1574 OO02lle 031314 DT2 *SERRPC SREGO SREGI 
1575 002114 000000 . 0 
ie 
1232 sITEM 871 
tae Oost s peo EM114 fen INCREMENTED ne ON WRITE CHECK 
ey Best se Baiaid DT2 HSERPC Snes Gl 
1582 002124 Bs. 
1583 
ieee ;ITEM 72 
1586 002126 030077 ‘EM115  ;RKBA INCREMENTED WITH IBA SET 
1887 002130 031431 OHY :PC XPCT RECVD 
1588 002132 031314 DT2 ; SERRPC GO S$REG1 
1589 002134 000000 0 
15390 
ta ;ITEM 73 
15393 002136 030133 em 16 sWRONG MEMORY LOCATION CHANGED WITH IBA SET 
1594 002140 032335 1 :PC WORD’ EXPCT RECVD 
1895 O02142 031344 DT26 *SERRPC SREGO SREGI Ge 
1596 002144 000000 0 
1597 
i238 ;ITEM 38674 
1600 002146 030206 EM117 ;RK11 DID NOT INTERRUPT WHEN IDE WAS SET 
1601 002150 032470 DH117 Ss RKCS 
1602 O02iS2 031306 gr sSERRPC SREGO 
1603 002154 000000 
1604 
ioe sITEM 75 
1607 002156 030253 EM120 = sg RK 1 2 NOT INTERRUPT AFTER SEEK WAS INITIATED 
1608 002160 032470 DH117 = s PC RKCS 
1609 O0ei6e 031306 grt sSERRPC SREGO 
ait 002164 c00000 
ibis ;sITEM 76 
1614 002166 030 Ate iBeP SET areoe SEEK COMPLETED 
1615 002170 0324 11 RKCS 
1616 002172 031306 DT1 :SERRPC $REGO 


03 
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coun 
an 
LCDs 


oa OID eT INTE BRUPT Roe SEEK COMPLETED 
;SERRPC SREGO SREGI 


=> f= fh &~ P= b> B= ps fs ee 


st TEE 


;CNTRL RESET DID NOT CLEAR ’SCP’ BIT 
3PC RKCS 


; SERRPC 


;RK11 DIO NOT INTERRUPT AFTER READ WAS DONE 
sPC RKCS 


;SERRPC SREGO 


1 
1 
1 
1 
i 
1 
1 
1 
1 
i 
1 
1 


628 
5 
633 
634 
63S 
636 
2 
1639 
1640 
1641 
16 
164 
1644 
1645 
1646 
1647 
a 
is 


;CNTRL RESET DID _NOT CLEAR REGISTER 
;PC REGADD RECVD 
;SERRPC SREGO SREGI 


sRKI1 on or INTERRUPT AT CPU LEVEL 
RKCS 


;RK11 INTERRUPTED AT WRONG CPU LEVEL 
;PC LEVEL RKCS 
;SERRPC SREGO SREG1 


i pp a ‘he . “ERe BIT 


;SERRPC SREGO 


se OR ERR DID NOT SET 
;P RKCS = RKER 





03 
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OZRKKC.P1) ERROR POINTER TABLE 


1673 O02272 031314 Dfe :;SERRPC SREGO SREG) 

1674 002274 000000 0 

1675 

p53 ITEM 107 

] M132 ;RKER ERROR 

158 Basso bsr4e1 Bua” pce *ExecT —RecvD 

1680 002302 031314 OT2 sSERRPC SREGO SREGI 

1681 00230% 000000 0 

1682 

iPes . ;ITEM §=110 

1685 O02 30775 EM133. ;NXC BIT_DID NOT SET 

1686 eet 03261 DH133 SC; *PC RKCS RKER RKDA 

1687 O0e3le 031344 DT26 sPC SREGO SREG1 SREG2 

1688 002314 900000 0 

1689 

160 ;ITEM §=61ll 

1692 002316 031015 EM134  ;RK11 DIDN’T INTERRUPT ON SOFT ERROR 
1683 002320 032571 DH131  ;PC R 

1694 O02e32e 031314 OTe ;SERRPC SREGO SREGI 

ibe 002324 000000 0 

a4 sITEM lle 

1699 1056 135  ;MEX BITS INCREMENTED WRONG IN RKCS 
1900 boes86 | Os1431 Bua’? pee Bac. RecyD 

1701 O0e332 031314 DT2 sSERRPC SREGO SREG1 

1702 002334 O0cO00 .. a> By 

1703 

1S ;ITEM = =113 

1oBe 70 . . EM110 3 CNTRL a DID NOT ger AFTER WRT CHK 
1707 002340 1475 ~ DH14 RKCS RKWC 

1708 OO02e342 031344 T26  SERRPC $REGO ShECL S$REG2 

170S O0e344% o00000 

1710 

tat 4 sITEM = =114 

1713 002346 031113 pus ;’WPS’ NOT CLEAR 

1714 002350 031711 :PC RKCS RKER RKDS RKDA 
171 ee 031324 Bred : SERRPC SREGO SREG1 SREG2 S$REG3 ' 
121 o00000 : b 2 
zie ;ITEM =6115 

1750 03113 M140 spare ERROR wn TRANSFER FROM a TO TTY 
1721 140 orks RECVD RKBA RKCS 
1722 1324 giao tCERRPC EGO S$REG1 S$REG2 SREG3 
17g3 002364 000000 

17 

1 sITEM 116 

17, 


1 002366 031200 EM141 ;’DRIVE #’ PRESENT, BUT NOT SPECIFIED 
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DZRKKC.P11 ERROR POINTER TABLE 

8 posite 1308 Burt $BERrpc SRECO 

73h BB5394 D008 : 

: sITEM 117 

17 752 EM11  ;RKWC ERROR 

1332 S408 651431 Brae pen” ERBYBor ecu 
173 boe"de O31314 Te SERRPC SREGO SREGI 
1738 sITEM 120 

1740 002408 931244 Em14e2 

1741 002410 O00000 9 

ins 

1744 002412 O0S015 051104 OS3111 MSGl: .ASCIZ <15><12>/DRIVE PRESNT/ 
1745 000420 O20105 O51120 051505 

1746 O0e%26 OS2116 000 

1747 002432 EVEN 

1748 002432 005015 047516 O42516 MSG2: .ASCIZ <15><!2>/NONE/ 

1743 002440 000 

ioe 002441 01 guiaie 052116 MSG3:  .ASCIZ <15><12>/CNT RDY DIDN’T SET/ 
1752 02446 05104 4504 04 

1753 002454 O42111 023516 O2012e4 

1754 O0e462 O42523 000124 

1756 002466 ooso1s 051104 OS3111 MSG4 ASCIZ <15><12>/DRIVE / 
1732 002474 020105 

1759 002477 O15 O4O412 O46114 MSGS: . ASCII <15><12>/ALL DRVS/ 
1760 002504 o42040 053122 123 

176¢ 002511 O40 051104 OSO117 MSG: .ASCIZ / DROPD/<15><12> 

1 002516 oo06s04 o00012 

1764 EVEN 

tee TOA eee TEE ASON THE REGISTER ADDRESSES IFFERENT FROM THESE 
1768 : (GIVEN BELOW) mt: CONTENTS ER 4 fear PaIATE POINTERS SHOULD BE 
1768 MODIFI HE CORRECT ADDRESS 
177 ‘ EVEN 

ire goesee 177400 RKDS: ibyan0 

1 177402 RKER: 177402 

1774 002526 177404 RKCS: 177404 

Ire boseae ea RKBA: {pout 

1 17741 RKDA: 17741 

1778 002536 17741 RKOB: 177416 

1780 

178) 3 TAGS AND GENERAL DATA AREA 

1783 : 

1784 





KO3 
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C.P ERROR POINTER TABLE 
tee PHitE: SETAC FOR ERINTING. PROGRAM TITLE 
1238 BRIVAB: 8 sEBNTAING PRaNr Ee oF ite DRIVE UNDER. Test 
1788 DRVDON: 0 : ONTAINS THE IVES CHE CHE 
1789 IT vENCBENE ENTED E Eat IME THE Seago. FOR 
1791 ORVPTR: 0 : CONTAINS Pug DO TNTE “TO THE ORIVE FLAG (DRIVEO 
179¢ i= VE?) OF THE DRIVE 10 BEC CKED NEXT. 
l INDX1: : : INDEX KEEPING COUN 
1794 INDX2: ; GENERAL INDEX 
1795 COUNT: 0 RAL COUNT REGISTER 
179% COUNT I : 5 COUNT REGIST R USED FOR ’DRESET’ SUBROUTINE 
1 TIMER: G 
1798 EFLG1: 0 CET TO INDICATE A PARTICULAR 
1799 “ERROR CONDITION 
1801 002566 000100 SEEKO: 100 sCONTAINS ADDRESS OF CYLINDER 2 
1802 002570 001000 SEEK: 1909 CONTAINS ADDRESS OF OF CYLINDE hae 
1s GREE Bkst8 Rent: 2a ‘vrais Seay Sel dP 
1 SRE Rui I INGAT! 
1808 Pete GTHeR THAN 8, : ‘Sesite BEA E  cHANGED 
1808 ‘ :T0 & HIS. WORD SHOULD BE CHANGED TO 240. 
1809 002576 000220 RKVEC: 220 Conan HE NORMAL VECTOR ADDRESS 19 WHICH 
1810 RKIL INTERRUPTS. IF THIS IS NOT SQ, CHANGE 
1811 TMS WORD TO CONTAIN MODIFIED VECTOR’ ADDRESS. 
gis ppspee RIVS 5 :CONTA AlRe. THE Hee NURLER OF” DRIVES P SENT 
1814 002604 FFLAG: O “3 
1815 002606 0 ;USED TO DETERMINE WHICH OF RK-OSF DRIVES ACTIVE 
i816 *0 IF EVEN DRIVE 
1817 :=1 IF ODD DRIVE 
1218 
1819 
1? 
8c sTHE FLAGS BELOW (BI (B et 0) we SET To 1 10 INDICATE, THAT A PARTICULAR LAR DRIVE 
1 ae POF ER ri AUN BLE DWRBLE NGMBE R OF ERR Bee OCEURED ON THA He A 
iBSe SRI YBRE THEN 6 IN T WARE NG TEST (LAST) 
1Ee? i THEN ALL "Brivesé prot BROPPED. Nut ert Al i 1s Nov Be 
1829 vO: ;FLAG SET TO 1 WHEN DRIVE 0 PRESENT 
1830 Vi: *FOR 
1831 . Ve: ;FOR 
183 RIV: 0 sEOR DRIVE ; 
tesa Brive: 6 FOR DRIVE © 
1835 DRIV6: 0 FOR DRIVE : 
1636 ORIV?: FOR DRIVE 
1838 TSEFLG: 
1839 PHYDRV 
1840 SIZYET: 





ee e+ = 
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1843 
1844 


RERRSRRAR SS ee 


i NN eR a 
Pa a kd iat 
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~—p 
aad 
“N 
~~ 


PERE 


3B BBB B38 Bb 1B eB 3 83 eB EBB EB EOE 


: 


002636 


36 
4e 


S28 


8 QOoO00000 
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SN 
SS 


re 
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START: 
~SBTTL_ INITIALIZE THE COMMON TAGS 


$ CLEAR nov Comscrtae, Ae SEYRST LOCATION 10 BE CLEARED 
;;CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
;;SETUP THE STACK POINTER 


INITIAL ize A FER KtaRs 
7 Ei vgctORs JRIOTVEC sI0T VECTOR FOR SCOPE ROUTINE 


cr )+ 
CNP SWR,R& ;;DONE? 
. = 


#340 aslorvec 
NOV #SERROR, @ We sEMT VECTOR FOR ERROR ROUTINE 
MOV #40 guthtveces VEL 7: 
MOV STRAP, i TRAP VECTOR FOR TRAP CALLS 
MOV ti G,ahtarveces eS. ine ! 
MOV PWRVEC ; POWER FAILURE VECTOR 
eR S71 3 Se siCEvEL TI NUMBER OF TERATIONS 
9° 
CLR SESCAPE 36 TIAze ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ‘ALLOW ONE ERROR PER TEST 
MOV #. | SLPADR HIN TIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV #.)SLPERR SETUP THE ERROR LOOP ADDRESS | 
;;SIZE FOR A HARDWARE SWITCH rectSTeR. IF NOT FOUND OR IT IS 
>:EQUAL TO A “=1", SETUP FOR A SOF TWARE SWITCH REGISTER. 
MOV a‘ERRVEC s(SP) $3 ve RROR SECTOR 
NOV abs, QHEARVEC TUP FoR oy STER 
MOV sO01S? DISPLAY cape fr Reals Ole REGISTER 
CMP #-1, ISWR 2: TRY FO REPEREN REFERENCE 
BNE 665 ; }BRANCH IF. NO NORE OUT. TROP TRAP GcunReD 
THE HARDWARE SWR IS NOT 
BR 65$ | BRANCH IF NO TIMEOUT 
64S: Moy #65S, (SP) ::SET UP FOR TRAP RETURN 
65S: MOV #SWREG, SWR ;;POINT TO SOFTWARE SWR 
MOV #DISPREG, DI 
663: MOV (SP)+, SARRVEC ;;RESTORE ERROR VECTOR 
RESET - 
MOV #ODPCH, RO 
MOV #13, Ri 
1S: CLR (RO)+ 
1 
.SBTTL TYPE PROGRAM NAME : 
;;TYPE THE NAME OF THE PROGRAM IF FIRST Pass 
INC a1 sFIRST TIME? 
BNE 6 1] BRANCH IF 
| 68S =: TYPE ASCIZ STRING 
“SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST ae42 ARE WE RUNN NG UNDER XXDP/ACT? 
BNE 69S : BRANCH IF 
CMP SUR, WSUREG +3 OF THA “Sutton REG SELECTED? 
BNE os i 
GTSWR T SOFT SSUR SETTINGS 
BR 70 
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DZRKKC.PLI GET VALUE FOR SOFTWARE SWITCH REGISTER 3 
1858 ma 112737 000001 001134 596: MOVE #1, SAUTOB ;3SET AUTO-MODE INDICATOR 
1901 603140 o00426 BR 675 “GET OVER THE ASCIZ 
1902 .685: .ASCIZ <CRLF><1S><12>/RKL1 LOGIC TESTS-11 MAINDEC-11-DZ2RKK=C/<CRLF> 
4303 003216 bbs: 
190 FIND OUT IF ACT11, DDP- CHAIN OR DUMP MODE 
tape 003216 012700 o02602 STARTI1: MOV #ORIVS, RO 
i seee 18701 177767 MOV #-11,R1 CLEAR OUT DRIVE TABLE AREA 
19 a D 10$: CLR (RO)+ 
191 01 INC Ri 
isi 003232 001375 BNE 10$ 
tai Bossag Soros CCCCNe beg 
i316 003242 123767 000041 oo0002 CHP aul, #2 . ; 
fas ee? SBhue Re fe BER Heed ABER 
1918 003254 123727 000041 oD0002 1S: CMPB 1,#2 
1919 003262 001443 EQ RKOS DOP CHAIN MODE 
192% a0 3e65 730 ooco41 - STB Sa 
1 0 1 BNE sNOT UNDER ACTLI 
i é noe7e 000127 003752 IMP ST3 2ACTLIL 
1353 BBse7e 04400 003304 , TYPE 65S s TYPE ASC 1 STRING 
{age = 655: Rocz pW see Oven By OTHER, TYP CR WHEN DONE/ 
tas 003364 big: 
1928 003364 104407 RDCHR READ CHARACTER FROM KEYBOARD 
185 003366 005726 TST (6)+ ‘UPDATE THE ST STACK POINTER 
i 003370 o00417 a BR sT2 60 & ASK POR’ NO. OF DRIVES? 
1 Ee o4400 003400 , TYPE 67S ssTYPE ASCIZ STR 
1934 Saar Apoate BR 66S GET OVER te Rentz 
1935 jg7S: -ASCIZ <15>¢12)/DRO NOT’ ‘tStp/ is 
1439 niet 012737 000001 002600 "MOV #1, DOPCH ;REPORT THAT DRIVE O WILL NOT BE TESTED 
1938 003426 000551 BR sT3 SPSCERTAIN NO OF DRIVES 
1940 
194 
1$te sFIND ouT FROM USER USER WHICH ,DRIVES (LOGICAL ADDRESSES) 
ie i [belee ‘ooRE Esse Se 1 sPeRTED te By RERRAS  PHUS SF st ROULOIYPE Pl! opesent. 
1946 : "0. 1<CR>? A CAR. RET. SHOULD BE TYPED TO TERMINATE THE LIST. 
1 30 O01 St2: hoy #DRI RS 
1aug te sea ais MOV rit al 
1349 13S: CLR ( »4 
b B 
1 003454 6 ; TYPE i TR 
1 i4 BR i piger FER tue pee Raciz 
1954 33658: .ASCIZ <15><12>/DRIVS TO’BE TSTED?/<15><i 






SELURPERRORARAGR 7 


1.0.0 
rb 


0 &—- b- 0-= B+ b= b+ 9 -= 0 & + b+ & = & B&F 0 = & = 6 = 9+ 6 9-2 9-0 92 bop ~~ &— 9-0 & 2-0 = 9-H 


SESRRPR TORE UR RE Oe al lolol aad 






BepasaRes 


all 


rrr 


8 Peele ee 


Moet vaLUE FD 


ll e7(732) i6-SEP-76 1 
| sSFTuaRe SWITCH REGISTER 
64S: 
IN 
- MOV 

177770 - MOV 
1$: MOVE 

177400 BIC 

002610 MOV 

177770 MOV 

009060 MOV 
es: CMP 

SEQ 
INC 
TST 
INC 
BNE 
TST 
BEQ 
4: 

003564 pre 
°:67$: .ASCIZ 
66S: 

~ BR 

3$: . TST 
BNE 

INC 

o02652 INC 
118: MOVB 

177400 BIC 

000106 CMP 

BNE 

100000 BIS 

000001 BIT 

BEQ 

177776 TST 
BNE 

100001 177776 a 
ooo0d2 9$: TST 
BNE 

100001 000002 MOV 
002662 10S: INC 
TSTB 

oocos4 8$: CMP 
Fey 

BNE 

BR 
Ss: TSTB 

INC 





:00 PAGE 41 
(SP )+,RO sGET ST STARTING ADRES OF ASCII STRING 
cRg)$ Re :GET UE OF “EHRRAC TER 
#177400, Re ?MASK UNWANTED BIT 
#ORIVO,R3 
#-10,R4 
#60,R5 
RS, R2 WAS THE TYPED IN CHARACTER 

ta NUMBER BE THEN §-7? 
3$ YES, BR 
RS NO, INC MENT 
(R3)¢ s INCREMENT POINTER TO DRV FLAG 
RY : ER THAT WAS INPUT 
2g *SHOULD BE O-7, IF ANY OTHER 
: 2? § AGAIN ASK FOR 
SDRIVS TO BE TSTD? F 
R2 1S IT A TERMINATOR? 
6S YES, EXIT. NO DRIVES INDICATED. 
675 ;;TYPE ASCIZ STRING 
i :GET OVER THE ASCIZ 
4227 
SE ge ar Ap oGegT See OUEST 
45. PEEOA 1F Rteti ALL Reaoy pine 
DRIVS : INCREMENT STAR No” OF DRIVES PRE 
JRO, Re :GET NEXT CHAR 
#177400, Re :CHARACTER ONLY 
8’F,Re :IS IT F? 
8 3;NO, GO ON 
8BIT15,9R3 ;SET BIT 15 TO SHOW RKOSF 
#BIT0,RS “EVEN DRIVE? 
SEVEN DRIVE SO BRANCH 
-2(R3) s CHECK EVEN DRIVE 
u§ EVEN ALL READY SELECTED 
aB1T15!8170, ,-2(R3) -: “SELECT EVEN ORIVE 
ta scHECK G0 IF TED BEFOR 
aB1T1S!B170, acral SELECTED, VE 
COUNT T pAIVES SELECTED 
Raye BO NT TO NEXT CHAR 
11§ 3C FOR C 
a5, BT pRocees NXT WORD 
Ro INO, 21 af INATOR? 
4g IF NOT, SOMETHING WRONG 
:GO_ASK QUESTION AGAIN 
6S EXIT, IF A TERMINATOR 
(RO)+ : INCREMENT PTR TO NXT BYTE 
;IN_INPUT FE 
RI : THERE SHOULD BE NO MORE THAN 





sz 
i 


DZRKKC. PL 
oni 
a 

14 
| one 
Bi 
201 
i 
2021 
20e4 
2025 
2026 
Ee 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
Be 
2039 
2040 


x | aioe” MACY 
P T VALUE F 


003714 001277 
003716 BOOT ¢ 


see 2 


1 ert? 
SOFT 


176440 


) 
SWITCH REGISTER 


16-SEP-76 16:00 PAGE 42 


1$§ 
4$ 


SIZYET 
#SW10, ISWR 
7$ 

He 


#1, SIMUL 
sT4 


-CHECK NUMBER OF DRIVES 

S73: MOV a1, SIZveT 
MOV 3S 84 

aRKDS 


2 
#BADTMO, da4 


ra 
a 


4$ 
#200, JRKDS 


Bass ze8-28 
8 a" 


CO 41 
MAMSS 


FF YPED IN, ERROR! 
teEERGNY Nope ef (PED 1 : 


;SET FLAG TO INDICATE SIMULATOR 


; CHECK FOR RK 
SET UP ADRES 
sREFERENCE RKDS 
sREFERENCE RKDA 


LATER 
OR TIME-OUT VECTOR 


;WHILE CHECKING NUMBER OF DRIVE 
*UNDER NON-MANUAL MODE : 

:RKDA HAD TO BE ADRESED. BUT 

IT WAS FOUND THAT THE DRIVE NO 

: THAT WAS WRITTEN COULD NOT BE READ BACK 
CORRECTLY. 


;CHECK IF ORY’ BIT IS SET, IF SET DRIVE IS 
; PRESENT 


S 
E PRESENT 


INTER TO NXT Drive INDICATOR 
ORESS FOR THE NEXT DRIVE 
CHECKED FOR ALL § DRIVES 
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DZRKKC. P11 GET VALUE FOR SOFTWARE SWITCH REGISTER 


j spe? : TYPE 
MSGe 
BR 


sT4 ovat aive INDEPENDENT 


MOV (SP),R3 TIMEOUT OCCURED 
CMP (5P)$. (SP)+ 
38 Lae 
. fa Sera Nana FOR NUMBER OF 
DA HAD TO Be REFERENCED, TIMEOUT 


ee folie atk he eo SECURED. 


Sree 


| 
i 


TSEFLG 
DRIVS 


WAT IME 


J SE 
O0esso 1S: abe VO, ORVPTR 
C Vv INITIAL Ze mu. ecu DRIVES 


KED 
DRIVAD AIHA spive ADDRESS TO 
#BADTMO, d84 iS TN. OUT VECTOR FOR UNEXPECTED 
SBADINT,ORKVEC ;SET UP RK11 INTERRUPT VECTOR FOR 


UNEXPECTED INTERRUPTS FROM RK11 
TST1 :G0 TO TEST 1 


2083 
2084 
2088 
508¢ 
2091 
5033 
2034 
2095 
2096 
2097 
2098 
2099 


;THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 
(SF) RO ;SAVE PC WHERE TIME OUT OCCURED 


(SER, (SP)+ ; RESTORE STACK POINTER 
S$ };TYPE ASCIZ STRING 
4g ‘GET OVER THE ASCIZ 
<15><12>/TIMOUT, biz? 


RO, -(SP) ;SET_UP FOR_TYPING OUT PC 
;G0 TYPE OUT OCTAL PC 


a 


OBSTART 


8 
& 


HOLES UNEXPECTED INTERRUPTS FROM RK11 
PING ON ERROR 


rururururorurufrorurururorururuforururrururor 
= 2B 0 Oe bo 00 0 be be Bo he sb ob -2 ob Be 
Vibe Nou fwrr-O DENN EOUES 





RS ~ | Scene” 


O— <b b= 9 pe 


rervrorerorurorururururorururorufororufororurururufufururulfurorururururururururururururururorururororururofrururu 
VEAZINASSEVEHIGR GS SOVK ALO BSoVFHESU-SLBVRREOWK SBBVE LE S 


b= P+ b= 0 0b OB b= 0 FO P= Bb + 2 6-9 = 2 bt he bo bh 02 0 bBo he Bs 9 0 Fs ph 2 Bh 2 Pp pp Hs 


“SJ 
ow 





011600 


1014 


1 
oe 
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GET VALUE FOR SOF THARE SWITCH REGISTER 


020000 174636 


( RO 
420000, aSWR 


6S$ 
4$ 
/,PCs/ 


ecm 


(SP)+, (SP)+ 
aSLPAOR 


#40000, dSWR 
3$ 


dsSTART 


are AFTER POWER FAIL 
; THE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 


PC, WATIME ;KILL TIME 


te et 






;SAVE PC WHERE INTERRUPT OCCURED 


; INHIBIT ERROR TYPEOUT? 
YES, DON’T TYPE OUT 


TYPE » UR XEEXTED RK11 INTERRUPT’ 


;;TYPE ASCIZ STRING 
a OVER THE ASCIZ 


186 ype OCTAL FC WHERE BAD 
tINTERUPT OCCURED 
i oad ON ERROR? 


BRANCH 
a REPOSITION STACK 
a0 THE START NG AD SS OF 
ae ae CTED INTERRUPT 


5 ee A 8 9 A 9 A gg 9 9 ga a a aE 

: ATEST SPECIFIED ARE NOT FOUND TO BE PRESENT 
ae mit peat 10, THAT ne DRIVES THAT ARE wr toe 

Bee fo, rs1p?") ARE pa at 

IF PARTICULAR IVE 


selves Uk _{im FADS), IT NESE THs bate 


a ee 


nate Tie (rar fs NT, SPECTPYED) ON 


S Sos, case, APreRE SA i cENU ine FRROR Thos DIFFERENT 





Y BE RESULTING IN THE SELECTION OF THE SAME 
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Pll Tl CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 


He 004376 poo04 Taig 9 poet ene amet CARD Sth Re REI. 
. l e ee 
UB ore age ox ge TEE NT ores 

1g OO4406 o0s002 CLR R2 S INITIALIZE DRIVE # O 

iB 10 010177 176120 . 1$: MOV R1, IRKDA sAORES THE DRIVE 

1 i 1 176102 i318 JRKDS s DRIVE Y? 

1 aie ‘ a ee 

e130 oo4422 905710 TST aRO eg rate IVE SPECIFIED BY 

132 oow24 001026 BNE 3$ VE , OK 

1 NO, THIS DRIVE # WAS NOT SPECIFIED 
elm i ;BY’ THE ; BUT STILL 1s GIVING 

19% gow2e 010237 001162 MOV R2, SREGO GET ORIVE # . a ee 

132 32 104116 ERROR 116 is VE # WAS NOT SPECIFIED BY 

21993 : aati THA THIS B ' IVE @ IF 

2200 Tae Call PRESENT IS ON «98D IF 
sou is eu “SELECTED BBY WO DIFFERENT 
ge03 | TOG CAL ADDRE 

2205 CO4434 905710 2s: TST RO :CHECK THAT THIS DRIVE WAS NOT INDICATED 
2206 CO4436 001421 BEQ 3s s1F IT HAS, 8 TI 1S NOT FOUND 10 TO Be 
2208 OO444O 004737. 020406 JSR —«- PC, GTYRG GET RKCS A DS, DA 

2209 OO4444 {04010 ERROR 10 : RIVE al 5 iN RKDA) WAS INDICATED BY 
2210 THE USER WAS NOT FOUND TO BE PRESENT. 
2211 :CHECK THAT THE ROTARY DRIVE SELECTION 
2212 *SWITCH ON THE MODULE IS SET TO THE RIGHT 
gel :DRIVE # 

2215 OO4446 OOSDIO CLR aRO sTHIS DRIVE 1s NOT FOUND TO BE PRESENT 
ei “ woke’, page. ; NC T FROM THE SELECTION TABLE. 
Bat Boas 1 0N2610 SUB 8DRIVO,R3 >MINUS OFFSET FOR TABLE 

i ace Gers Gees Salona UOMO EsEh OP Baan or xs F 

555] be5723 100000 aig #100006, (R3)+ ;NOT SPECIFIED AS F. MODEL 

5555 DON? Besa37 bpeeoe Bec «=| DRIVS SBECREMENT - ‘COUNT 

2225 oo4soe ons202 3S: INC ; INCRHNT DR 

5559 Bowehe pes70t BD (cBOD pitta 

1 920000 ADD #20000,R1 eS an NXT DRIVE 

cece 004512 001336 BNE 1§ : LUP BAK IF NOT DONE 

2230 

E31 iTads PORT oF pate PROGRAM IS GOING TO BE REPEATED FOR 


foro 
28 


‘ *DRIVAD’ CONTAINS IN BITS 15,14,13 THE ADDRESS OF THE 
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VES THAT ARE NOT ePECIFIED ARE NOT FOUND TO BE PRESENT 
;DRIVE BEING CURRENTLY CHECKED. 


© 
’ 


NUORV: 


‘itesT 2 FIND OUT NEXT DRIVE 10 BE CHECKED 


RE ihe Sle LB van nee. Tlf rests 7 


rebesaanboctacteestanotonnanseacsantenenonssesbanseotansasesecnt 


EES f 
: 


004514 ith SCOPE 
0045i6 Ole737 000001 001206 MOV #1, STIMES : JTERAT 
004524 37 001102 MOV #2, STSTNM theset IN Ato THIS TEST 
CHRNGE THI S. (2) IN THE 
00111 CLR RTTL ie be Tora RROR COUNT 
2252 nied raat TST RIVS ie THERE IVES PRESENT? 
Se ies Be on 8s, Ste «20 
gee a3 1 MOV TR,RL By + er 7 porn 0 THE NEXT 
2257 OO4sS4 e721 000001 2s: BIT s91T0, (R14 Ts. Yirs LORIVE PRESENT? 
soe8 rity 37 Oe0000 oo2es44 6éS: ane , DRIVAD iF NXT DRIVE ADRES 
2260 004570 001371 BNE 2s 
ssp5 Souesg 7 oo2600 is: fer  poPcH 3 :DOP HAIN MODE? 
004600 001403 BEQ 3$ nO, BRaNGH 
2264 OO4602 005737 o02544 TST DRIVAD we THIS DRIVE 0? 
2265 Oo¥e08 001765 BEQ 6S DON’T TEST ORIVE 
gebb 004610 010137 odesso0 3$:.. MOV R1,DRVPTR pas -POINTER 0 THE NEX 
2268 OO4614 104400 ooe4es TYPE MSG4Y yi 
2269 O04620 013746 002544 MOV ORIVAD,-(R6) GET THE DRIVE ADDRESS E 
2270 OO0%624 004737 O20b12 JSR PC, SHFTRT GO SHIFT IT TO THE RIGHT 
2271 004630 005037 002604 CLR FFLAG 
2272 O04634 011600 MOV (R6),RO sR VE NUMBER 
2273 004636 104402 TYPOS :G0 IVE jut OCTAL # FOR THE 
2274 ‘DRIVE THAT IS BEING CHECKED 
2275 oowe4O 001 000 .BYTE 1,0 
ss7e aad 002610 fat _ ia iF os 
Bae Spueee area 004660 OBE § ey MO YPE I TRING. 
2280 BOMEEE 000401 BR 64 sid T OVER fue pec 
2281 -65$: .ASCIZ /F/ 
2282 O04bb2 sigs 
2283 O04662 005237 002604 INC FFLAG sSET F FLAG 
Soee DOMES Abizi3 eee <1 
l2l SCRLF TYPE C 
ecbb janeenptenseneesnveanessveenvechuastessbeneesvenseogeespeaeeye 
ssee K THAT ORIVE IS SUPPLIED WITH R- 
jeaanehuasauesancvasuannaaseusassaneouseaneaanennnonevainnaats 
2289 004672 000004 jist 
2290 O04674 104412 an ee RESET G0, DO CONTROL RESET 
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DZRKKC.P T3 CHECK THAT DRIVE is SUPPLIED WITH POWER-DPL BIT 


E a i ay vet 
Ths SA fe int 


‘OCCURS GO BACK 10 TES 


B 


ea | 


sas BLae7? ppsesg 175624 HOV AAT PAD CORKDA VE TEST 

Bov716 905719 Ist ard . {Che gc TF Bry ‘Bit oF Rens Re SET? 
2305 opi7i8 ages — ERROR 4 een ir ERROR! RKDS IF ADDRESSED 
2306 “CORRECTLY SHOULD BE NON-ZERO 
3307 oo47e2 012777 o0001S 175576 1S: MOV #15, IRKCS sESSUE A ORV RESET IF ORVE 
S309 004730 1 CLR Ri peek ah = 
19 a3e71 010000 2s: IT #10000, aRO 71S’ IT 
sai? Bouse D8i003 fe qe Cae 
2312 OO474G 1 INC Ri *WAIT FOR SOME TIME TO 
i Gams Bes he i be ea 
ate oe 004737 o20414 38: ISR PC, GT3RG :60; RKCS, ER, DS 
ae aoa7es 104005 ERROR 5S > DPL at OF RKDS tS SET, CHECK DRIVE POWER 
2318 
sy ee neat 000100 4g gif at RO sDID_R/W/S ROY BIT SET? 
5351 DONvES OBTOID ' i ites, Ba 
e3ee 004764 104416 000011 DELAY IW "DEL A 
e323 004770 : 1 SWAT FOR RWS RDY 
2325 004774 B17 79 175522 001162 MOV JRKDS, SREGO 
2326 O0S002 104016 ERROR 16 ie Rive ROY. RDY 1D N ate 
e327 ESET TER DONE 

if Check ai ky: BIT HIS TEST 

2329 :1S NOT FOR ¢ CKING 
2330 MIGHT WANT TO USE &F SEPOVIDED 
e331 *FOR Sick ING ORIVE RESET. 
533 :ATEST 4... CHECK THAT “DRIVE UNSAFE’ IS CLEAR, "HOEN’ 1S SET, "WPS? IS CLEAR 
cae oosoo4 Sead | aeaeayeancueaieuieneaneaneaeaneanea sens HneniGnHeHEvIEHEERERIEE . 
2337 O0SC% 1044ie2 "ONT. RESET ic DO CONTROL RESET 
2338 is Is meat OR THE E oCNTBLe . 
2340 D e ty RTaIN “Tite 
5341 Pe THe PCNA ROY 1 Set 
2342 MO eT 


Ee fed SPST fol, 


234s fart TS A VERY BASIC ERR 
2346 ;OCCURS GO BACK TO TEST 10 
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DZRKKC.P11 T4 CHECK THAT *DRIVE UNSAFE’ IS CLEAR, "HOEN’ IS SET, ’WPS’ IS CLEAR 
2347 005010 013777 O0eS44 175516 MOV DRIVAD DRKDA Ss; SET arte DS, 
ens pee 001403 ba3s08 ety 88:18 Ie "onu epee 
737 020414 R PC, GT3RG : 

S324 Boeosy Toude ERRon 6 ofa art RSP’ ARDS 12 SET, CHECK 

3 V Spurn. RUN/LOAD SW TO LOAD 
zs 905096 932700 oo4000 18: BIT #4000, RO bs, *HDEN? gi SET? 
2357 OOSO44 017737 175452 O01162 MOV JRKDS, SREGO : aoe 
aS o050S2 104007 ERROR 7 ERROR, ’RKOS’ BIT IS NOT SET 
2 4% 032777 OO0040 175440 2S: BIT #40, IRKDS s1S AR? 
cet Ge ice yo oti 
2362 005064 904737 O20406 JSR PC, GTYRG it “Axes. ER 
2363 005070 104114 ERROR 114 >? HIPS’ “WRITE E paoiécr STATUS- BIT OF 
2364 $06 RK CLEAR, IF THIS DRI 
2365 : WRITE E CHECK’S SEE IF THI 
23665 IVE IS WRITE E NABLED, IF IT IS NOT 
gab sDRIVE ENABLE 
2 earthen eeeennererarmagegeee reenter 
5355 eoso72 opo004 DE aero Spay epemenpaerT ce 
2374 605074 104412 "ONT. RESET ; 4200-0 
2375 a ta THIS T A CALL FoR Tie +a 
535 HTSSLep “Roy i en'p one 
533 a4 ERROR ae Me RT 
5308 >THE PC IN S REPORTED, f 
2381 1 WHERE °CNT.RESET’ IS LOCATED. 
esse s THIS Ged-oB oack Fotest tot” 
2384 005076 913777 002544 175430 MOV DRIVAD, IRKDA + OURS T THE DRIVE 
e385 005108 105777 175412 TSTB DS °IS "DRY? SET? 

110 100403 BMI STb *: YES, OK 

2387 005112 004737 Oo20406 JSR PC, GTYRG 60, GET RKCS, ER, DS, DA 
3388 005116 104010 ERROR 10 :*DRY? NOT SET 
eso FS eee et Trt alii 
392 ci . :# THIS HIS TEST CHE CHECKS “feat Ht T MITHIN. A LSERTAIN TIME 
2393 ERROR IS 


igeeveaspetenstinstecitbeteatatneeeteaneetteesnnertonnt 


20 tite: 5S 
2 NSRiaa 002544 175404 MOV DRIVAD, JRKDA THE DRIVE 
005001 CLR RI INIT ALIZE COUNT FOR TIMING WAIT LOOP 
32 032777 OOO400 175362 1S: BIT te? , ORKDS ee SET? 
ue Bosoot PN AO. MALT 
44 001372 BNE rt WAITED, LONG? 
4 017737 175350 o01162 MOV SRKDS, SREGO GET RK 


JO4 
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DZRKKC.P11 Té CHECK THAT *SOK’ BIT CAN SET 


eos 005154 104011 ERROR 11 sHBETED LONG BUT ’SEC OK’ BIT DID NOT 
’ 


correc crt ara 


STE 77 


Bee 


CHECK 'SECTOR C COUN 1 

eu10 ;3 * THIS TEST CHECKS THAT THE See oR COUNTER CAN COUNT FROM 

1 iy ) FIRST, FOR IN 21 S. THERE S A TIMED 
suis 2% Aietne WHICH opt TOR COUNTER TO 0. # Sots 
att #15 ine DONE AN ERROR IS REPOR 

1S ty 2) AFTER A COUNT OF O 75 REACHED, THE 
e416 ;# FOR A CERTAIN TIME ING WHICH’ THe SEC COUNTER 
Eat =i 1s SAMPLED. IF THE COUNTER DOES NOT CHANGE WITHIN THIS 

18 2% TIME PERIOD AN ERROR IS REPORTED. 
2419 °% 3) UPON FINDING THAT THe COUNTER HAS CHANGED, IT IS CHECKED 
e420 :# IF IT INCREMENTED CORRECTLY. IF IT DID NOT AN ERROR 1S REPORTED 
e421 :% 4) IF IT INCREMENTED CORRECTLY, THE PROGRAM AGAIN WAITS IN A 
etee i LOOP TILL THE COUNTER (STEPS 2,3,4 ARE REPEATED 
o4e TILL THE COUNTER COUNTS UP TO 13) 
e424 A OR Rs Hl a El. | ES 
e425 005156 O00004 — +817; 5c 
2426 005160 104412 CNT. RESET G0, DO CONTROL RESET 
2427 ; : THY 5 A CALL FOR THE ’CNTRL- 
2428 RESET’ ROUTINE. A CONTROL RESET IS 
e4e9 i eene AND AFTER A CERTAIN TIME 
2430 IF THE ’CNTRL RDY’ DOES NOT SET 
2431 ?AN ERROR IS REPORTED. T 
a3 : THE N ERROR HESSAGE IS T 

:PC CNT .RE LOCATED 
2434 ‘THIS IS A VERY BASIC ERR & IF I 
gt OCCURS GO BACK TO TES 
005162 013777 o02544 175344 MOV DRIVAD, IRKDA 

Sua DOSieY Once? posees of an NAT ero Tine * 
536 Bpesad ppenss CLR Re : INITIALIZE MOUNT? ERROR ME 
2440) "ERROR 36’ (WAIT LOOP) 
2441 O0S202 012704 177764 MOV #-14, RY j INITIAL C ? = FOR THE 12 SECT 
eu42 005208 012703 O00001 MOV #1,R3 *R3 CONTAINS *NEXT’ COUNT OF SEC-CNTR 
2443 ?R1 CONTAINS "PREVIOUS? COUNT OF SEC-CNTR 
e444 , *Ro ¢ TAINS THE TPRESENT® CO COUNT OF SEC-CNTR 
e445 O0S2l2 005037 002554 1S: CLR INDX2 INITIALIZE COUNT’ 
e446 (WAIT LOOP) "ERROR 34’ 
2447 O0S216 37 o0ess2 INC INDX1 ;KEEP TIMING FOR "ERROR 35° 
e448 001440 BEG 6S ?BRANCH & REPORT ERROR IF WAITED LONG? 
2449 37 oo02ss4 2s: INC INDX2 KEEP TIMING FOR "ERROR 34’ 
gue0 005230 001441 BEQ 7§ ‘BRANCH & REPORT ERROR IF WAITED LONG? 
e452 005232 011001 MOV RO, R1 i067 RKDS rm \ 
2453 005234 032701 oo0400 BIT #400, Ri 71S *SOK? SET? ' A * 
Suce ay Bap SRO, RI SHAKE SURE THAT 2 CONSECUTIVE } 
Sue Spesud BOL See BNE OC«ddS SREADINGS OF SECCCNTR ARE. SARE dn 
2457 O0Se% 042701 177760 BIC #177760,R1 ives MASK OUT NON-SEC CNTR BITS 
2458 O05eS2 001357 BNE 1$ ET’ SECTOR 0, IF NOT LOOP BACK & 


www eee eweass> = = 


KO4 
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DZRKKC.P11 T? CHECK THAT ’SECTOR COUNTER’ CAN COUNT FROM 0-13 


24s9 sWAIT FOR SECTOR 0 
Suet Bbesee Borda? RM Reap Hata E stb Ons ck 
e42 005260 005205 48: INC RS P thane FOR ’ERROR 
Supa oeses Bitoas ABy | «SRO, Re i geet ERROR IF HATED LovG 
2465 005266 03270e ooo4oc SIT #400, Re 215 SOK SET? 
' 
5ae5 phase a 1208 0,Re Nake “CORE Rats CONSECUTIVE 
2468 005276 001370 BNE 4g *READINGS OF SEC-CNTR ARE SAME 
5u88 boeaoy _— Bis ABTRTOO Re MRR RN CSRE INCREMENTED? 
2471 005306 001764 SEQ 4g’ =NO, WAIT FOR IT TO CHANGE 
e472 005310 03 CMP R2,R3 *YES, DID IT INCREMENT CORRECTLY? 
gt73 005312 001023 BNE 9g :NO = REPORT ERROR 
gi75 005314 005203 cs: INC R3 i RereNt “ee NEXT COUNT” 
24 ppesse Bpenee CLR Re - NITIALIZE GAT OR COUNTING "ERROR 36’. 
ei7e 005322 000754 BR 3$ GO & CHECK THE NEXT SECTOR COUNT . 
geo 005324 010137 001162 * “BS: MOV R1, SREGO ;GET_’SEC CNT 
et el 005330 104012 ERROR 12 SHATTER Lote, eur SECTOR COUNTER 
gigs 005332 000421  @R TST10 > EXIT 
sib 34 017737 175162 O01162 7S: MOV JRKDS, SREGO :GET_RKDS 
at 2 104011 ERROR 11 sMAETED LONG, BUT’ "SOk’ BIT DID 
eves 005344 000414 BR TSTIO : EXIT 
2490 00534 010237 001162 8S: MOV R2, SREGO GET SEC CNTR (PRESENT COUNT) 
- p491 005352 010337 001164 MOV R3, SREG1 GET “NEXT COUNT” 
size 005356 104013 | ERROR 13° ;WAITED LONG, BUT THE SECTOR 
;COUNTER DID'NOT INCREMENT FROM 
2494 : THE PRESENT COUNT TO THE NEXT COUNT 
gts 005360 000406 BR. __—smTST10 * EXIT 
2497 005362 001162 9S: MOV - R3,SREGO sGET "NEXT COUNT’ (SEC CNTR SHOULD BE THIS) 
- 9498 005366 010237 001164 MOV Re, SREG1 GET PRESENT COUNT (WHAT SEC CNTR WAS) 
2499 005372 104014 ERROR *SEC CNTR INCREMENTED WRONG, DID 
2500 iNT a SCT FROM PRESENT COUNT 
sens 005374 000747 | BR 5$ 
eS 

oe : iTeST'10." "CHECK THAT SC=SA CAN GE GENERATED 
507 : i * THIS. TE 1 CHECKS THAT SC=SA CAN BE GENERATED FOR 
P3t, 005376 oooo0y ~~ } a meer po RpERepeneree ee 

i 005400 104412 CNT. RESET CONTRO ROL RESET Hose 
Set , eo “Bake we CONTROL RESET IS 


esi4 - ; ISSUED AND ite A CERTAIN TIME 


MAINDEC-11-DZRKK-C 


OZRKKC.P11 
2515 
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T10 CHECK THAT SC=SA CAN BE GENERATED 


013708 002544 Noy DRIVAD RY 
613288 177764 MOV ROS, RO 
010477 175112 1S: MOV RY, JRKDA 
005005 CLR 5 
2g INC RS. 
1410 BEQ 3 
11001 MOV DRO, R1 
01 00020 BIT #20,R1 
001772 BEQ 2g 
04 4g; INC RY 
' INC R3 
001364 BNE 1$ 
BR TST11 
10437 001162 3S: MOVB RY, SREGO 
0137 001164 MOV 1) SREG1 
104015 ERROR Re 
000766 BR 4§ 


HE “CNTR ROY" DOES NO 
ee eSedN eae 


nus 15.8 IS A Vi RY prste i ied 


; INITIALIZE COUNT FOR # OF SECTORS 
; ADDRESS THE DRIVE 
INITIALIZE COUNT - FOR TIMING ERROR 
sKEEP TIMING FOR ERROR 
PORT ERROR IF WAITED LONG 


iG SC=SA SET? 
NO ra 


S THE NEXT SECTOR 
ARE ALL SECTORS SEXED FOR SC=SA 
; ~ . yen NEXT 
ives. 
GET SECTOR ADDRESS 
soup NOT GET SC=SA FOR THIS 


*SECTOR 
CHK Fi ORE REST 


H st he sare nt AEST: 
K THAT 'R/W/S RDY’ T & *SIN’ AR 
es CS rrr onneeRERREERERET 


DO CONTROL RESET 
+ ROORESS THE DRIVE 


3GET RKDS 
31S R/W/S RDY SET? 


PWAITED LONG ENOUGH? 
: TF or wy BAK & WAIT 


*GE RKDS 
*R/W/S RDY BEALS BE SET 
21S gin CL LEAR 


: XIT 
ee Tavs £08 RAVE BEEN CLEAR 


CLEAR 
iL HAS NOT GLE 1s GOING TO CHECK 
:DRIVE RESET, SIN SHOULD BE 
ict LEARED THEN. IT WILL BE CHECKED 


Oa ge emer og oT errant antec: 
teetne ye CHECKS THE VERY BASIC DRIVE RESET LOSre. 


*&TEST 11 
oo0004 COPE 
104412 NT. RESET 
013777 O0eS44 175036 MOV DRIVAD, JRKDA 
005001 CLR RI 
017700 175016 1S: MOV JRKDS, RO 
032700 00100 BIT #100,R0 
001005 
5 i ot BNE it 
iste 001162 AS sreco 
104016 ERROR 
2700 001000 2S: BIT #1090, RO 
go1493 BEQ TSTle 
737 O20406 JSR PC, GTYRG 
104001 ERROR 1 
t STES" C 


DS ARE A 


T CYLINDER O (GOING INTO THIS 


NC HEA 
;¥TEST) DRIVE RESET RETRACTS THEM BACK BEYOND CYLINDER 0, 
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2571 


sO 
000 NO £ wre 


ROAR ARR 


OOSS4O 
00SS4e 
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Tle CHECK 'DRIVE RESET’ 


013700 O0eS26 


005004 
013777 o02S44 
Thee 000015 


032777 000100 
004737 O20406 
032777 001000 


004737 O20406 


032710 140090 
004737 O20406 
ee 


022710 000214 


OO1406 Ct 
Se 012737 000214 


60 011037 001164 


ae ee; 


174754 


174724 


174702 


001162 


A DG EL AE SUR CaN TORO 
test WHICH DOES THe Ree Cast € YLINDER 
ppepeeed das testeesneeesievesceens erences een oteas HiEATEEOA 


téti2: SCOPE 
ONY RESET :G0, DO CONTROL RESET 
| THIS IS A B CALL FOR THE ’CNTRL 

IRESET? ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIN 
SIF THE "CNTRL RDY’ DOES NOT SET 

sAN ERROR IS REPORTED. NOTE THAT 
;THE PC_IN ERROR MESSAGE 


5 ere’ ae IS THE 
_§PC_WHERE 'CNT.RESET’ IS LOCATED. 
THIS IS A VERY BASIC ry & IF IT 
Nov RKCS.RO OCCURS GO BACK TO TEST 10 
’ 


CLR RY sINITIALIZ COUNT - TO TIME ERROR 
MOV DRIVAD, JRKDA ; ADDRESS THE DRIVE 

MOV #15, aR0 RESET’ 

CHKCRDY G0 CHECK 4 CONTROL ROY IS SET 


ERROR 21 See “abt DID Re arieR 


: PEND tees HAVE COME BACK 
FROM DRIVE REUPON SETTING 'CN RDY’ 
2S: BIT #100, aRKDS DID R/W/S RDY SET? 


BNE : YES CH 
INC RY ; WAT TED LONG? 
BNE Fa} IF NOT LUP BAK & WAIT 
ISR PC, GTYRG GO, GET RKCS, ER, DS 
ERROR 26 *R/ WS RO v O10 Not SEt OP TER 
... DRIVE Apcep 
3S: BIT #1000, JRKDS sDID SIN SET? 
BEQ BRANCH 
JSR PC, GTYRG G0" GET RKCS,ER,DS,DA 
ERROR 1 SIN SET, AFTER A 
tBRIVE'R RESET 
S$: BIT #140000, aR sHAS "ERR? bit OR ’HE’ BIT SET? 
JSR PC, GTYRG 'G0, GET RKCS, ER, DS 
ERROR 22 - i Pans OR *HE’ BIT SET DAILE DOING 
DRIVE RESET 
4g: CMP #214, ORO sDOES RKCS STILL CONTAIN THE 
:*OR Vv RE BITS 


BEQ TST13 save 

NOV eS t RKC 

ERROR 3 ‘ ae KS, "EESYE CONTAIN THE *DRIV RES’ 
“FUNCTION, ERROR IF DIFFERENT 


ri error ieee 
: ATEST 13 CHECK ’SEEK’ TO CYL 
;# mis TEST CHECKS THE SEEK LOGIC DOING SEEK TO cyt INOER 0. 
;# NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER O, NO 
;# HEAD MOVEMENT IS INVOLVEDN AND THE STRESS IS ON THe” BASIC SEEK 
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T13 
004 
Towi2 
104420 
013700 002526 
013777 O02eS44 
012710 000011 
104411 
104021 
005005 
032777 000100 
001005 
005205 
001372 
004737 Oe0406 
AoA0s8 
77? 001000 
001403 
004737 20406 
104001 
032710 140000 
001403 
004737 20406 
104022 
ig hed 174524 
1403 
004737 O20414 
104023 
022710 000210 
001406 
ee 000210 
11037 001164 
104024 


174626 


174574 


174552 
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CHECK ’SEEK’ TO CYLINDER 0 


LOGIC. 
ypreverbbeadtsieaneneeaeoeeesneneeaneaneaneceeesneneeanentess 


+113: 
SET 

% S 
TST.SIN 
MOV RKCS, RO 
MOV DRIVAD, JRKDA 
10V #11,9R0 
CHKCRDY 
ERROR 21 

2s: CLR RS 
BIT #100, IRKDS 
BNE 3$ 
INC 
BNE chte 
JSR PC, GTYRG 
ERROR 26 

3S: BIT #1000, 2RKDS 

i BEQ 6$ 
JSR . PC,GTYRG 
ERROR 1 

6S: BIT #140000, dRO 
BEQ 4§ 
JSR PC, GTYRG 
ERROR 22 

4g: TST JRKER 
BEQ os 
ISR C,GT3RG 
ERROR 23 

cS: CMP #210, RO 


BEQ TST1 
MOV #210, SREGO 
MOV gRO, SREGL 


G0, DO CONTROL RESET 
* THIS Isp CALL FOR THE ’CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
* ISSUED AFTER A CERTAIN Ing 


\* if HE *CNTRL RDY’ DOES NOT ret 


AN ERROR IS peor ees NOTE T 


ME ad" ERPRCEE YE Faat, 


37 SA VERY BASIC i & IF IT 
fOcgUR GO BACK TO TEST 10 

;GO_ CHECK IF SIN SET. IF SET 

3A DO DRIVE RESET TO CLEAR IT 


sADDRESS THE DRIVE 
;*SEEK’ GO 
GO CHECK IF CONTROL RDY IS SET 
IF S50 SKIP THE EROR MESSAGE. 
>*CNTRL_RDY’ DID NOT SET AFTER SENDING 
;CYL ADOR TO THE DRIVE, *ADD ACK’ 

HA K'FROM THE 
:DRIVE, THEREUPON SETTING ’CNTRL RDY’ 
010 R/W/S ROY BIT SET? 


H 
WaT TED LONG ENOUGH? 
+ UP BAK & WA 


f Mats ero Not oe "D8 ep SEEK 
NO. BAA 

G0; GET “RKcs, ER, DS 

isi § SET 


0 CYL 0 on Ob ne SEEK THE 
tT RST TIME THE HEADS HAVE 
sBEEN MOVED 


: 
sWAS ’ERR’ OR °HE’ BIT SET? 

;G0, GET RKCS, ER 

ERR’ OR ’HE’ BIT B+ PAIL DOING ‘SEEK’ 
suas ANY BIT IN RKER SET? 


#60 GET RKCS, ER 
RKER R SHOWS AN ERAOR” BIT, CHECK 


os PACS STILL CONTAIN *SEEK’ FUNCTION 


GET EXP PCTD RKC RKCS 
GET ECVD 
, RKCS SHOULD BE STILL CONTAINING 









SRE SUB TaiT ERTS Re REDE maM ne 





Tm 
“ 





0+ 0+ 0 0-0 pe 
Od YOu © 





SSIS, 


m 
~~ 





S 






















006032 
O0&034 
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CHECK *SEEK* TO CYL 





i 


SEP-76 16:00 PAGE S4 
INDER 0 





;’SEEK’ FUNCTION ERROR - IF IT CHANGED 


CME IAL ECC Wait ie etree 


eTEST 14 


C R/W/S_RDY N MOTION 


;#THIS res ¢ wee THAT ae a DOES GE 


sun Tee 1 GENERATES THs Sra, 8B pa et "oY 


j#R/W 7S RDY-CLEAR 


HEROTE rats Ys wid ste maieD- HEADS ARE MADE TO MOVE BY SEEKING 


ypeeeeebtrasiniiiastedieseesssnaseneneereesesssssasanseneeesee 


+t 14; 


es: 


COPE 
SET :60 09 CONTROL RESET 
:THIS IS A CALL FOR THE *CNTRL- 
*RESET’ ROUTINE. A CONTROL RESET I 
ISSUED AND AF ER A CERTAIN TIME 
TF THE 'CNT Y’ DOES NOT SET 
AN ERROR Is REPORTED. NOTE THAT 
THE PC al 3 I THe 
:PC WHERE ’CNT.RESET’ IS LOCATED 
‘THIS IS A BASIC 8 IF I 
: OCCURS GO BACK TO 0 
TST. SIN :G0 CHECK IF SIN IS 
:IF oe DaV-RESET 19 CLR IT 
JSR PC, DRESET smak HEADS YL 9 
ERROR 26 *R/W/S ROY DIDN'T SET 
sAFTER THE ABOVE DRV RESET 
CLR RS 
MOV DRIVAD, SRKDA 
‘BIS #100, aRKDA ;SEEK CYLINDER 2 
_ MOV RKDS' RI 
HOV #11, dRKCS GO 
BIT 8100, aR1 sate Ke, ‘7S ROY CLR? 
BEQ 2s YES, BRANCH 
INC RS 
BPL 15 
ISR PC, GT3RG 
ERROR 25 sR/W/S_RDY was NOT CLEAR WHEN HEADS 


WERE SEEKING TO CYLINOER 2 


JSR PC, TSTRWS :G0, WAIT FOR R/W/S RDY TO SET 
ERROR 16 i AW/S_ ROY 10. NOT naen AFTER SEEK 


oy eee R.§ (ABOVE). 
uas” the PIR TIME R ree 
Be TRIED TO A CYLINOER OTHER 





ee TH TECK URITE’ FORMAT FUNCTIONNCYLINOER 0 SECTOR C 


$TES 


NPaTMIS TES rest Gvecks "hee Logi Losi¢ ieee D YN THe UATE FAT. 


He FOLLOWING IS CHECKED 
#1) CNTRL ROY-BAS CLEARED AS GO 
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2750 
2751 
5783 
2754 
27ss 
e756 
e757 
2758 
2739 
2760 
e761 
2762 
2763 
e7b4 
g7ee 
2767 
2768 
2769 


ASS 


pRRERERREEEEESHERRAAES 


Sees eoeueEEE 


R 
& 


Oe KORKBEE 


T15 


104420 
012703 


MACY11 e7(732 
CHECK "WRITE 


) 


i6- 
* FORMA 


P-76 16:00 PAGE 
FUNCTION-CYLINDER 


3 | dere RDY “ W 


IN 
;#8)_ IF THE Fur en FMT’ 
;#NOTE THAT 0 
#0 8 IT WILL Were ck 


5 
» SECTOR 0 
‘Edt Se] a CERTAIN TIME ON COMPLETION OF FUNCTION 


ECTLY FROM 0 TO 1? 
TLY TQ 0? 
C ly Y 2? 


er oe THE RKCS? 


THE NEXT T 


Sy ae regmpegeiae ro 


tétis 


SET 


TST.SIN 


MOV sOUTBUF ,R3 


#1,R0 

RO, (Ra) 
RO. “ 

RO 

g500,R0 

g 

(R3)+ 

#125252, aR3 

SsOUTBUF ,R3 

RAR, ay 
39h 

pts 

GRIVAO SRKOR | 


xe 
iw 


ALL FORTHE °c or ares 
ate br 


R We CERTAIN i: 


=o 2S 


tas 


rset 


RROR Pe me THE 
oe RESET’ IS LOCATED. 
£. ‘ IF IT 


S378 
te 


cIN 
DRIVE RESET TO CLR IT 


SETS UP A 256 WORD BUFFER 
USED TO WRITE 1 SECTOR 


000001 
177777 
0000 


aecees tae ae neem 


+: 


ba 
2a 
~~ e41-< 


2°S COMPLEMENT 
OF ABOVE 


;SET UP DATA WORDS 


; DONE:? 


;SET 255TH WORD TO 9 
SET 256TH WORD 


;RESET POINTER TO OUTBUF 
;FROM HERE-SET UP CURRENT ADDRESS 
Set UP WORD COUNT 400 WORDS 

BRITE FORRAT Go ADORS, SECTOR 0, CYLINDER 0 





| DO 
NAI | Honan) MACYLI €7(732)_ 16-SEP-7 rah BFLIR a3 e 
OZRKK T1S CHECK "WRITE’ FORMAT FUNCTION-CYLINDE SECTOR 0 


cs D06224 1S: sHAS "CNTRL ROY’ CLEARED AS GO WAS SET” 
797 O05 020414 - é' tf "GET RECS, ER ER 
2 hos EN UR ria © © 

Vs We: S seg "CNTRL ROY? SET ON COMPLETION OF HRITE” 


ONG ENOUGH? 
IT 


occas 


Hester ee 


eee 


PC, GTYRG 
DRIVAD, $REGLO 


palatal 


< 


31 ; 


Ze%o98 
Qn Bs 


OR ERR’ SIT SET, 
» DS, DA. 


bi SET WHILE DOING 
OUTER TN enoR DONE STARTING AT <DSK-ADRES> 
TED IN E 


FECK IF RKDA™ INCREMENTED CORRECTLY 
TURN HERE. 
INCREMENTED BY 
DIO NOT 


Rie 
Hr 


3 


32 


Saueouane aE 
WO IPU £ WITH O 


= 
“3 
a) 


83 


PC, CHKDA 


33 

PC, CHKWC WORD COUNT OVERFLOWED, IF 

34 BNO OVERFLOW TO 0, AFTER 
“RITE FORMAT 

: tir ,aRa" -DI INCREMENT CORRECTLY? 


Sac PEE TD AKER 


t 


Ba28 


a 


Fun 


_ 
aes 
Som” 3 


a 


CO01162 


Se 


T 
a porte HAVE "WRT FMT’ BITS? 
cop mace 


RKCS 
its *: TDN T CONTAIN °WRT FMT’ BITS 
R THE FUNCTION WAS COMPLETED 


;pereebeeneeeeeeerarerenereseeerteareneeenanenenareaeannetents 


0 Test CHECKS THE LO toare Fee ee ee Een ep 


ih CNTRL ROY WAS CLEARED AS GO 


2820 
2821 
5555 
28e4 
2825 
bee? 
2828 
e8e3 
con 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
e841 
284, 

284. 

eb44 
284s 





EOS 
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DZRKKC.P1i Tl CHECK "READ FORMAT’ FUNCTION-CYLINDER 0, SECTOR O 


281 #6) ir te ROY WITHIN @ CERTAIN TIME ON COMPLETION OF FUNCTION 


ecrLY FROM O TO 1? 
SuED CORRECTL Y TO 0? 


INCREMENTED C CTLY BY 2? 

N rience 

TER Bat eKEe SEO TNS THE CHECK 
TOR. (125252 IN THIS CASE, BECAUSE gee 
IN SEC 2 WAS WRITTEN AS leSeSe IN 

sarie PREVIOUS TEST) 

$10) FOR RK11D, AFTER RO FMT RKDB SHOULD CONTAIN 

HLL) RAL: RD FMT FUNCTION BITS ARE STILL IN 


jeepvesdbeauenastaceenceeneensnesoneaneeneneanneanenaneennentes 


tt16 
aR RO 
CNT. RESET ;G0, D0 CONTROL 


CNT RESET? IS IS LBoaTeD. 


: VERY FASHC FRB IF 


TST.SIN ; F SIN IS SET 
; ORIVE RESET TO CLR IT 
eee »R1 


SOUTBUF , R3 
R3, dRe :OrT *  pderptoge tos tt 40, 


BRIGAD  aRKDA ae UP DISK bis ARS, SECTOR 0, CYLINDER 0 
#2005, aR1 READ FORMAT, 


aR! — *CNTRL ROY’ CLEARED AS GO WAS SET? 
; BRANCH 


2g : 
PC, GT3RG G0, GET RKCS 
30 sCNTR ROY OF Diby't c T ee GhEAR AS GO WAS 


RO 
dR ;WAS +“ ROY’ SET ON COMPLETION OF 


3 EG WA WAITED LONG ENOUGH? 
2542 


020406 PC. GTYRG 
002544 001202 MOV DRIVAD, SREG1O fm we 
; $REGIO 

45 : *CNTRL 





MAINDEC=11-DZRKK-C MACYL1 27(732) 16-SEP-76 16:00 PAGE 58 
OZRKKC.P11 T16 CHECK "READ FORMAT” FUNCTION-CYLINDER 0, SECTOR 0 

tPF ape par Rae one STARTING AT <DSK-ADRES> 

HINDICATED, IN IN EROR MESGE 

‘CHECK IF ERR’ OR ’HE’ BIT SET, IF 

; “YES RE CRN HE 
46 : MS OR ’ERR’ BIT SET WHILE 
“ NGA A_’READ FORMAT’ 
ent As DONE STARTING AT <DSK-ADRES> 

PC, CHKDA a “TF ek INCRE ep CORRECTLY 


40 SRKOA HAVE INC ED 
BY 1 SECTOR, IT DID 


PC, CHKWC s CHECK <r mag oven TO 0, IF 
ay pa OID NOT OVERFLOW TO 0 
BOUTBUF+2,dR2  ;DID RKBA INCRENENT TO NXT WORD ADDRS? 
STREET GD eS 
ne ee DIDN'T INCR INCREMENT NENT BY 2 AFTER | 
PC, CHKER ; CHECK F ANY i IN RKER SET, IF 
:RKER a a DOING 
ES QUTSLF CONTAIN THE HEADER 


MORO FORRAT 
;DOES RKCS HAVE THE *ROFMT’ BITS? 
ig beciD RCS 
i a Dee ean ON WAS 


sATEST 17... CHECK *READ’ FUNCTION-CYLINDER O,SECTOR O 
, jxTHI i oat FI TIME A PURE ERD TS PREFORMED IN THIS 
3 - ni pUe THE. FOLLOWING 1S CHECKED 
2 ‘a @ CLERRS fs BITRIN A TS RTAIN TIME ON COMPLETION 


3 IF enon T SET? 
) IF RKDA Baers D CORRECTLY? 
) IF RKWC 


si 
sais 
BIE 
a 
2317 
2918 
2319 
e320 
2321 
esee 
2923 
Be 
e326 
2327 
2928 
BP 
2931 
is 
e334 
Be 
2937 
2938 
Be 
Bs 
Be 
es46 
2347 
2348 
e349 
2950 
2951 
23Se 
2953 
e954 
esss 
e956 
2957 
BS 
2960 
2361 
2362 





~~ 


AR 


: 


F 
£ 


SEeCECIreeeRR eS ERM eet nt erent Ce epeeeameceran yay. 


coe ore OS BS EE Eee 


eteteiseteis 

OnNomMscWe-O 
Bg 
38 


GOS 
Tir CHECK *REAO®- Fund PTBN-cYLINDER 8, SECTOR B 


:46) IF KBR. INCREMENTED CORRECTLY? 
Ha) TF fe a : pete Do-HEADER (FIRST WORD) WAS 
Ag) TF IKE *READ" FUNCTION BITS ARE STILL IN RKCS 
ee PEUTTTTTTTTTETTETTTTTETTT ITT SETIT TTT TTTTTTeTeTT Tere TTT TT ey BLESHE 
Mraz: ONT RESET . 


Pts TSR GALL FORTHE *CNTRL- 
sTute. Routine. BF ON FRor RESET IS 
s ISSUED AND AFTER A CERTAIN TIME 
dn Caton 1 esthreh noe Te 
MESSAGE IS THE 


2 
be 
™ 


THIS 15,8 VERY BASIC ERR 8 IF It 
104420 TST.SIN 160 Che oF etn 1g EI . 
; Si —_- tIF SET, IVE T TO CLR IT 
oo Bl, 
o13703 Nee MOV ROUTAUF,R3 . 
10312 MOV : s$67 al? ,ADDRS_ WHERE DATA WORD IS 
012777 177400 173664 MOV 8-400, IRKWC SET UP WORD COUNT 
013777 002544 17 MOV DRIVAD, aRKDA sSET UP pis ADRS, SECTOR 0, CYLINDER 0 
012711 MOV #5, aR1 READ, 
105711 1S: STB 981 sas "CNTR RDY’ CLEARED AS GO WAS SET? 
1 sYE H ; 
004737 o20414 ISR PC, GT3RG G0, GET RKCS 
104030 ERROR 30 sCNIRL ROY DID NOT CLEAR AS GO 
ooso00 25 CLR * RO y 
105711 TSTB Ss ARI sas CN =f SET ON COMPLETION 
100411 BMI 3$ :YES, 3 
005200 INC RO - :NO, HAVE U WAITED LONG ENOUGH? 
001374 BNE 2S+2 iF NOT, LOOP BACK WAI 
004737 O20406 JSR PC, GTYRG GO, Get RKCS, ER, DS,DA 
013737 002544 001202 MOV DRIVAD, SREGLO 
104415 BRKDAY %. 300.10 BDAY’ of CONTENTS OF 
>$REG1O INTO : ait SUR,SEC BITS 
104045 ERROR 45 *CNTRL ROY DID NOt SET ON 
: COMPLETION 
READ WAS DONE STARTING AT <DSK-ADRES> 
“INDICATED IN EROR MESGE 
004737 O20646 3S: JSR PC, CHKHE sCHECK IF “ERR OR HE’ BIT IS SET 
SIF YES, RETURN HERE. 
104046 ERROR 46 fH oR nee BIT SET WHILE 
“DOING A READ 


“READ WAS DONE STARTING AT <DSK-ADRES> 
t INDICATED IN EROR MESGE 


ee ee ee 


MAINDEC-11-DZRKK-C 
DERKKE Pll Tl? 


1 


KC. 
3 
305 
3029 
x31 
2 
037 
3038 
3039 
SoH 
s04e 
3043 
3044 
3045 
3047 
3048 
3050 
s0s2 
3053 
3054 
3055 
2056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 

3 
3071 

7 

2074 


004737 
104040 


MACY11 
CHECK 


020674 
020730 


033724 


&7(732) Ab 
*READ’ FUNC 


16-SEP-76 
ION-CYLI 


4S: 


6$: 


nae, SECTOR 0 


PC, CHKDA 
40 
PC, CHKWC 
41 


3 TBUF +1000, we! 
#OUTBUF +1000, sete 
aR2, SREG! 


BEQ TSTe0 


HOS 


s CHECK IF Le i INCREMENTED CORRECTLY, 
a bie abt 
Breck: iF Rea ci OVERFLOWED TO 0, 
Low TO 0, 
*D { RKBA INCREMENT CORRECTLY? 
GET EXPCTD RKBA 
Soa Aiakg: RKPACREMENT BY 2 
pe Ae 1 WORD 
> CHECK IF-eN ANY iT IN RKER SET, 
: Men RETURN HE 
IT SET ON DOING 1 
De BUF CONTAIN THE RIGHT 
:DATA_ WORD 
iCeT BRANCH 
: TD DATA WORD 
CVD DATA WORD 
ADRS FROM WHICH READ WAS DONE 
:DID NOT READ THE CORRECT 
‘DATA WORD--FROM DISK ADRES, 
;SEC 0, CYL 0, SUR O 
sBETER ! SECTOR READ RKDB CONTAINS 
; THe CHE CKSUM FOR THAT SECTOR 
The : WORD TRANSFERRED TO MEMORY 
THAT TH TH THE GTOR 
Hea ites, ONTAINS 
ORRETLON PBR BOTH Relic” 
e ate CONTAIN THE EXPCTD WORD? 
GET’ EXPCTO R RKDB 


Paes NOT CONTAIN THE 


WORD AFTER A READ OF SEC 0 


Oaks OKC HAVE THE READ’ BITS? 


GET EXPCTD FACS 


:RKCS site T BT CONTAIN *READ’ 
sFUNCT ON at TS AFTER OPERATION 


eae SF CLEAR RKDB? 





MAINDEC-11-DZRKK-C MACYL1 27(732) SB 16: 5°5, sects oe 
DZRKKC.P11 Ti? CHECK *READ’ FUNCTION-CYLINDER 0, SECTOR 


007102 013737 002536 001164 MOV DB, SREG1 T ADRES OF RK 


BH Shares 72 sou a cs. ae 


esr oe Tate comnts cen toes Oy eeeton ts 
;# 


Pe Ag tt lll 
IF ROY SET WITHIN A CERTAIN TIME ON. COMPLETION 
ty a "HE OR “OnE BIT SET? 
5) 2 THE increment? CORRECTLY? 
AERC 


3 #4) Sc 

:#WRT See OR AT A TIME 

THE FIRS OF EVERY SECTOR IS WRITTEN. as A 

; HPSUEDO-HEA ONS IST ING OF DRIVE #. CYLINDER #, SURFACE 

+ THIS WILL BE READ & BuEeKED” IN THE "FOLLOWING TEST. 
ebdebeinactnaannninmahianattasnasnnialatatintnetacemanditense 


SSMERSSESRREER EMITS 


007120 ooo004 tét20: 
1 1 MOV RKCS, 

pos ise 613783 OOSSee MOV #-14° ;SET UP COUNT FOR 12 SECTORS 

wile Gira, coe RY. GROWER ce ore eoores 

He ue e pe ah 
3100 00714 012737 007154 901110 MOV #15, SLPERR >SET RETURN on tay bi LUPING 
aie 007154 194412 1S: CNT. RESET $60, 00. 0 CONT 
1 : Is 
a2 Rain | Shee c 
3107 :AN ate REPORTED shoe T pet 
3108 >THE PC_IN ERROR MESSAGE IS THE 
3109 *PC WHERE ’CNT.RESET’ IS [BcatED 
3110 ‘THIS IS A VERY BASIC & IF IT 
3111 sOCCURS GO BACK TO TEST 10 
2112 OO71S6 104420 TST.SIN *GO CHECK IF SIN IS SET 
113 ieeaet tei . - sIF SET, DO DRIVE RESET TO CLR IT 
116 007162 010137 032724 MOV Rl, OUTBUF s THIS WORD 0 BE _X-FERRED. gp RST 
sits ; SACTUAL DRIVE CONSISTING OF 
3118 Seba nt CYL ADDRS, SURFACE 
3120 007166 012777 032724 173336 MOV #OUTBUF , JRKBA RORS FROM WHICH DATA WORD IS TO 
BGT, rrr ay as TRS HD comer Secon 
Es 5iost3 MOV GRIIE E F, “bo 
3126 007210 105777 173312 2s: TSTB aRKCS 010 *CNTRL RDY’ SET? 
ie? go7e14 100410 BMI 3s S, BRANCH ate 
$153 07528 001375 NE OS 0, He LboP BAEK E WAIT 
3130 :IF ves" REPORT ERROR 
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OZRKKC.P11 T20 CHECK *WRITE FORMAT’ -CYLINDER 0, SECTOR 0-13 


1 ? JSR RK R 
ae BaSSSE nitik Betz 38 nev Rf gree % et betes «aR UN ap ttt, SUR,SEC) TO WHICH 
134 007232 104415 BRKDAY et fo pi ry see GON TENTS oF 
1 g 0 INTO 1TS 
ae 007234 104031 ERROR: 31 D p Aor SET ON COMPLETION 
a1 , ey ONG STRRTING AT <DSK-FORES>, 
3140 007236 004737 O20640 3S: ISR PC, CHKHE1 j CHECK IF sERR’ OR "HE? BIT IS SET, 
Ste 007242 104032 ERROR 32 > HE? BR ERR Fe SET WHILE DOING = 
3143 } WRITE FORMAT ON CYLINDER O 
the *SECTOR IN ERR S_AS SHOWN IN 
145 iB SK S BITS 
3146 FMT WAS DONE STARTING AT <DSK-ADRES>- 
3147 STNDICATED IN EROR MSGE. 
343 007244 004737 020702 4S: ISR PC, CHKDAL sCHECK IF RKDA INCREMENTED CORRECTLY? 
3151 007250 104033 ERROR 33 ~~. sRKDA DID NOT INCREMENT CORRECT 
ibe “AFTER 1 WRITE FORMAT’ ON 
3133 SO a ER bunt oocun TH Eee tB AKDA 
3155 007252 005777 173260 S$: TST GRKDB *CHECK THAT RKDB DOES CONTAIN A O 
3156 AFTER WRT BECAUSE LAST WORD WRITTEN 
3157 “trate sb SERIALLY SHIFTED OUT TO THE DISK 
1 ? CLR REG TH Fear RKDB SHOULD N 
3123 Basseg BtsOse OLLee ole Sot SRKGB, SREGI $ a 
3161 104037 ERROR 37 a ae Maine AFTER WRT SINCE Ti 
ibe N SERIALLY SHIFTED 
| 168 go7e74 905201 6S: INC R! HINCRERENT OBRIVE ADDRS TO NXT SECTOR 
is 007300 122708 000014 CHEB #14,R5 iB U GOING TO CHECK THE LAST SECTOR? 
ib 007306 062705 O00004 ADD #4, RS Eves 6° FNCREHENT RENENT RS CORR cTLy TO *EXPCTD RKDA’ 
8 coraie. a 1 fee Poet? eee 
3171 007314 Were, BNE fe OT, BRANC H Back s ie ogc 
si? if ves! Barre 
3173 {ATEST 21... CHECK. "READ FORMAT’ -CYLINOER Q, SECTOR 0-13. 
a7 , sxTHIS. rest Fe ERFORS 8 "RO FHT ON THE 12 SECTORS OF CYLINDER 0 
73 hy aia: CHT iS ce OTTHIN A CERTAIN TIME ON COMPLETION 
3186 i} FP I ai 4 aon "ERA BI BIT ee ape 
1 #4) ed D Y CTAL) 
3186 is) ar Meera Pern h: tes aryfe 
sige $38) te MOENTAT NS Rees "BD a NT’ FUNCTION site 
3186 sit ) Recs Kes aut READ ERROR IN THIS TEST OR ANY 


ee eee ee _ - _ 
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DZRKKC.P11 Tel CHECK ’READ FORMAT? “CYLINDER 0, SECTOR 0-13 


4 SFO THES OFS TeRecn ERARLE ERROR ANG Sot TRANSIENT 
8 i THIS C eer Byte 8 T EBOPING ON N THE Trans 

l IN QUESTION. USUALLY. A TRANSIE 

19 #DISAPPEARS ON RETR WHEREAS vi eBare ERROR DOES NOT. 

1 jepreesbinenieesneaueneennensibaneaneaneeatenreansastesies tenia 

193 007316 oo0004 +4121: SCOPE | 
3194 007320 O0S00S aR RS 
3195 007322 104412 CNT. RESET G0, DO CONTROL RESET 
3136 :THIS IS A CALL FOR THE ’ - 

197 RESET’ ROUTINE. A CONTROL 
2198 if D AND AF RA CERIAIN Tan 
3199 TF THE ’CNTRL RDY’ DOES NOT 

"AN ERROR IS REPORTED. NOTE THAT 

3201 >THE PC_IN ERROR MESSAGE IS 
3202 *PC WHERE 'CNT.RESET’ IS LOCATED. 
3203 *THIS IS A VERY BASIC ERR & IF IT 
3204 OCCURS GO BACK TO TEST 10 
3205 007324 104420 TST.SIN 360 CHECK IF SIN 1S SET 
3205 21S SET, DO DRIVE RESET TO CLR IT 
3207 007326 013701 002526 MOV RKCS,R1 
3208 007332 O01 177764 MOV #-14°RO sSET UP COUNT FOR 12 SECTORS 
3209 007336 O01 002534 MOV RKDA’ Re 
3210 007342 013712 o02544 MOV DRIVAD, aRe sADDRESS THE DRIVE 
3211 00734 012704 032724 MOV #OUTBUF RY 
3el2 007352 010477 173154 MOV RY SRKBA sADRS TO WHICH X-FER DATA FROM DSK 
3213 007356 012777 177764 173144 MOV #-14, OR SET UP pga Coy COUNT FOR 12 HEADERS TO BREAD 
se14 007364 012777 002005 173134 MOV #20089 RAKES * READ 
3216 007372 105777 173130 1S: TSTB = ARKCS sDID CNTRL RDY SET ON COMPLETION? 
3217 007376 100411 BMI 25 BRANCH 
3218 007400 O0S20S INC RS NO, "WAIT FOR IT TO SET 
3219 007402 001373 BNE 1$ IF WAITED LONG ENOUGH REPORT 
3220 ERROR BTHERWESE LOOP BACK & WAIT 
3221 O07404 004737 O20406 JSR PC, GTYRG GO, GET RKCS, ER, DS,DA 
3222 O07410 013737 O0eS44 o01202 MOV _- DRIVAD, SREGIO 
3223 007416 104415 BRKDAY :GO TO ’BDAY’ & BREAK CONTENTS 
2524 *SREGIO INTO DR#, CYL, SUR, SEC BIT 
32e5 007420 104045 ERROR 45 ;CNTRL ROY DID NOT "SeT ON COMPLETION 
ec OF READ FORMAT-OF CYLINDER 0, 
3227 SECTORS O-13 
3228 *READ FMT WAS DONE STARTING AT <DSK-ADRES> 
3229 INDICATED IN EROR ME 
3230 007422 004737 Oc20646 2S: JSR PC, CHKHE ‘CHECK IF 'ERR’ OR ’HE’ BIT IS SET, 
3231 :TF YES RETURN HERE. 
3232 OO07426 104046 -,. ERROR 46 >*ERR’ OR ’HE’ BIT SET ON DOING 
3233 sREAD EMT-OF CYLINDER 0, SEC 0-13 
3234 "READ FMT WAS DONE STARTING AT <DSK-ADRES> 
3235 * INDICATED IN EROR MESGE 
3236 007430 013705 oD0es44 3S: MOV DRIVAD, RS 
se 007434 062705 o00020 ADD #20,RS’ sRKDA SHOULD HAVE INCREMENTD TO (Re) 
3239 007440 004737 020702 ISR PC, CHKDAL Ee ae RKDA INCREMENTED CORRECTLY, 
547 007444 104040 ERROR 40 *RKDA DID a a NORERENT BY 12 


3242 ;AFTER A 'RD FMT’ OF 12 HEADERS OF 


ea ee - = 


MAINDEC-11-DZRKK-C MACY11 
DZRKKC.P11 


enUES 


007446 
007454 


Tel CHECK 


4 
737 002204 
1 Boiie4 


27 (732) 


173086 4S: 


Bat ie§ 


001162 


001162 


16-SEP-76 16:00 PAGE 64 


S$: 


6S: 


75: 


"READ FORMAT’-CYLINDER 0, SECTOR 0-13 


;CYLINDER 0, SECTORS 0-13 
6 INC a BY 24 BYTES 


CMP — @RKBA ie estath CORRECTLY? 
BEQ ;YES, BRANCH 
UDR ar ac ge 


ERROR sRKBA DID NOT INCREMENT CORRECTLY 
SAFTER READ FORMAT OF 12 HEADERS 
JSR PC, CHKWC $60 Sa te Han ne A sstebeimees TO 0 


ERROR 41 ei QVERFLQM 10.0 


IST cRu)+ ins th NO ERRECT HEADER RECIEVED? 
MOV RO, SREGO GET’ SECTOR FOR WHICH THE HEADER 
ADD #14 SREGO ‘COULD NOT BE READ CORRECT 
CLR REGI *EXPCTD HEADER-O, FOR CYL 0 
=(R4) , SREG2 GET WRONG HEADER RECVD 
ERROR 43 ?HEADER WAS NOT READ RIGHT FOR 
;SECTOR (AS IN ER MSGE), & CYL O 
TST (R4)+ WAS THE CORRECT HEADER RECVD? 
INC RO YES, HAVE U CHECKED FOR ALL 12 SECTORS? 
BNE 6$ IF NOT, LOOP BACK & CHK HDR FRM NXT SECTR 
ISR PC, CHKER ;CHECK IF any BIT IN RKER IS SET, 
ERROR 36 RKER BIT SET ON DO NG_RD FMT 
OF CYL 0, SECTOR 
CMP #2204, ORI SDOES RKCS STILL CONTAIN FUNCTION BITS? 
Siem BU DEED 
MOV aRi SReci ier TUAL ke 
ERROR 24 *RKCS DID NOT CONTAIN ’RD FMT’ 
SFUNCTION, BITS ON COMPETION OF 


ites oo CHECK TREAD’ CYLINDER OF SECTORS OTD Gee 


t STEST 22 


K_ READ’ ,CYLINDER 0, SECTORS 0 TO 13 

THIS TEST PERFORMS A READ OF ae THE SECTORS OF CYLINDER 0 
its eer THE FOLLOWING 

} SATA, RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
itor THE FUNCTION 
"HE’ OR *ERR’ BIT SET? 
HE CORRECT PSUEDO-HEADER (FIRST WORD OF EVERY) 
ITTEN IN A PREVIOUS TEST) WAS RECEIVED. 

NTAINS STE CORREETLY WORD. 


ECTLY 
THE (37?) 2 WOReS IN EACH aa ARE *0’ , NOTE 
EN PER SECTOR 
STILL ay THE *READ’ FUNCTION BITS 

I 


T CLEARS RKDB. 
BEING DONE ON A SIMULATOR ONLY LAST SECTOR(13) 


s 
— 
5p 
aig 
4 


Z 
a 


J 
vas 
Oo 


eeicitcisiste ot 


ertaerereaeseatreataesreaes 
Re et ataet tt et ot 


3323 


010137 
104415 
10404S 


004737 
104046 


MACYL1 | 
CHECK ’ 


007644 001110 


002526 
002544 
032724 
002S40 


000013 
000020 


177764 


172660 
172652 
177400 
000005 


020406 
001202 


020640 


7(732) 


AD’ , CYLIND 


172642 


tétz22: 


9$: 


1$: 


es: 


3$: 


ROER 0, SE 


16:00 PAGE 65 
Fars 0 10 3 
;#IS READ BECAUSE 3 eel 
#HENCE ONLY THE DAT 

jeaeenAtsutunesasuaneaaneatennaeaneanneancanenaneaneeneea teats 


MOV #1$, SLPERR 
MOV RKCS,R3 
MOV DRIVAD, RL 
MOV 1,R5 

MOV #OUTBUF , RY 
TST SIMUL 

BEQ 3s 

BIS #13,R1 

BIS #20,R5 

MOV #-14,R2 
INC RS 

CNT. RESET 

TST. SIN 

MOV R1, ORKDA 
MOV R4; JRKBA 
MOV #-400, IRKWC 
MOV #5, aR3 

CLR RO 

TSTB 3s ARB 

BMI 3$ 

INC RO 

BNE 2 

JSR PC, GTYRG 
MOV R1,$REGIO 
BRKDAY 

ERROR 45S 

JSR PC, CHKHE1 
ERROR 46 


LAST CAN BE R 


sSET RETURN ADRES FOR LUPING 
;0N ERROR (SW 9) 


; TESTING a SIMULATOR? 


SIF’ TESTING ON SIMULATOR READ 
SECTOR 13 ONLY 
pa BITS FOR SEC 13 

RKDA SHOULD INCRMNT TO THIS AFTER READ 


gr COUNT FOR 12 SECTORS 
RKDA SHOULD INCREMENT TO 
THIS wien eer READ 


CONTROL RESE 
Heer D ARO AFTER A Str ie 


AN ERROR” ig RREPORTED.~ Rove "RAT 
ithe PC _IN ERR oe MESSAGE IS THE 
sPC_ WHERE ’CNT A? 4p IS LecaTeD 
THIS IS A VERY y Fsie GER S IF IT 

S GO 0 


<n T "Ser 
Ore RESET TO CLR IT 
X-FER DATA FROM DISK 


;D1D CNTRL RDY SET ON COMPETION? 
:YES, BRANCH 
iNO, ett én: ay TO SET 


TED LONG ENOUGH, REPORT 
tee nee LOOP’ nBAk & WAIT 
eet SE A BbDRES WERE ERROR OCCURED 
160 10 * Boe’ & BREAK CONTENTS OF 
REGIO I INTO OR #, CYL suk SEC BITS 


me ae Eh Not set cee 
38 


<DSK-AD 

READ Was WAS STARTING AT <DSK-ADRES> 
INDICATED IN EROR MESGE 

CHECK IF ’ERR’ OR HE’ BIT IS SET, 

;1F YES A oe HERE. 

;HE OR ERR BIT SET 

;ON *READ’ OF CYLINDER 0, SECTOR 


OR CAN STORE aa haar SECTOR (256 WORDS). 


se 
OZRKKC.P11 


3355 


PRR 


bs pas fe 


e899 
Stemo 


Tee 
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CHECK "READ’,CYLINDER 0, SECTORS 0 TO 13 


4S: CHP 


R1, (RY) 
BEQ S$ 
001162 MOV Ri {sr EGO 
001164 MOV cr 4), SREG1 
001166 MOV 1,$REG2 
ERROR i 
020702 cs: JSR PC, CHKDAL 
ERROR 40 
177775 O02S64 MOV #-3, EFLGI 
032726 MOV sou TEU se RO 
177401 002556 MOV #-377, COUNT 
11$: TST RO 
BNE 123 
TST (RO)+ 
0025s INC COUNT 
BNE 11$ 
BR 7g 
001162 123: CLR RE 
001164 MOV (RO) +, SREGL 
001166 MOV , SREG2 
ERROR 44 
002564 INC EFLG1 
BNE 11$ 
002540 7S: TST SIMUL 
BNE 10$ 


me eee —_——— 


AS SHOWN IN <DSK-ADRE 
Lowy area” <OSK-AORES? 


ORRECT? 
THE ci OR TATAS RpRR” 4 P eatH CE CTOR 
TS AN ADRS WORD COMRISING OF SEE IE NO, 
CYLINDER ADRS, SUR, SECTOR ADRS 


;GET EXPCTD DATA WORD FROM DISK 
GET THE ga RECVD 


;GET DISK ADRES 
DID NOT RECIEVE CORRECT DATA WORD ON 
sREAD, OF CYLINDER 0, SECTOR AS SHOWN IN ’DSK 
ADRES’ OF EXPCTD DATA WORD 
;CHECK_IF _RKDA INCREMENTED CORRECTLY, 
sIF NOT RETURN 
5 RKOR DID NOT_ INCREMENT CORRECTLY 
R READ OF 1 WORD, FROM CYL 
Ra IN ERROR IS 1 LESS THAN TH hat 
s SHOWN IN EXPCTD RKDA 


AS A_RESULT OF ’WRT FMT’ IN A PREVIOUS TEST 
SFIRST WORD OF EVERY SECTOR IS NON- 
ZR (PSUEDO-HDR), REST 377 WORDS 


*S. 
THE REST OF THE 377 
ALL 0’ 


RS 
TI TR TO ND WRO_IN BUFR 
“s 3 is IN THE BUFFER 


TR TO NXT WROD 
L 377 WRDS? 
SOFT exp ExecTD WORD 
*GET Wi CVD 
34 DISK ADRES, ERROR IN THIS 
sbATR ERROR, THE obfst., 377 WORDS 
FROM EACH OR SHOULD BE O 
IN Ap PREVIOUS Hest. EIRST WORD OF 
“EVERY SEC (CYL O) WAS WRITTEN AS A 
sESURROSHOR CREST OF THE TORDS IN THE 
CTR ARE AU AUTOMATICALLY WBtTTEN As 
S ERROR MAY MEAN THAT IT 
Oe T HAP PEN 30 
ALLOW ONLY A ERORS OF THIS KIND 


; TESTING ON SIMULATOR? 
;YES BRANCH 


iI NOT TESTING ON SIMULATOR GO AHEAD 
; & READ ALL le SECTORS ON CYL O 


MAINDEC-11-DZRKK-C MACY 27(732) 16-SEP-76 :00 PAGE 67 
DZRKKC.PL1 Te2 CHECK *READ* CYLINDER 0, se ORS 0 T0 13 


INC a ieee § DRIV-ADRES TO NXT 

000014 NE a4, RS cath 16 READ fie last "ee 
BNE +6’ BRANCH: 

oocoo4 #4, RS he ree, INCREMENT ’EXPCTD RKDA’ 


Re HAVE U READ ALL le SECTORS? 
1$ IF NOT LOOP BACK & READ THE 


“NXT SECTOR 
oo0204 : MP #204, IRB sDOES RKCS {STIL HAVE THE ’READ’ FUNCTION 
o0c204 00: #204, SREGO iE EXPCTD MeKes 
OOL164 ™ RS, $REG1 RECVD 
RR Peres eo CONTAIN THE *READ’ 


eect teeeee 
5.000 “SOU cores 
aoa #2 eaaee 


wey 
isis 
O0000 280 20000 


2b 0 <p -9-— o-9—- o-- 9b ~~ B - oe 


“ 
ie 
rete 


oO 
o-2 
Oo 
gs 
— 
fw 


ifaré 1S “i CALL FOR THE ’CNTRL Les 
ie aR AFTER Q “CERTAIN Tite 
oC REPOR 


Be ROE THAT 
ME IS THE 
NT Peet ’ IS LOCATED. 


rioiestic | 


- 172416 JRKDB :DID CNTRL RESET CLEAR RKDB? 
| BEQ TSTe3 “YES xIT 
002536 001162 RKDB, SREGO bet RKOB 
17e402 OO01164 JRKDB, $REGL :GET CONTENTS OF RKDBS 
102 SCONTROL, RESET DID NOT - 


CNT. RESET 


; 
itiet aay AMECK URITE FORMAT’ OF THe DIK 


tbr TEST 2 
5 of bate Ma THE FIRST 
ORB BY aig FoR arate it ‘oy wy PSUEDO-HEADER 
$ #CONSISTING OF SURFACE 8 SECTOR 8. 


aces ae 


erie t bere SEC aay 
s#ACC ie | SRE 


TS WITHIN A CERTAIN TIME ON COMPLETION 


SET? 
NTED CORRECTLY, INCLUDING BOUNDARY 
COUNTER BITS OVERFLOWING INTO SURFACE, 





TING AT <DSK-ADRES> 


ITS) AT THE END 
, ETC. 
FOR LUPING 


OUTINE. A CONTROL RESET IS 


SC FOR Ts BONE. 
T RKCS, ER, DS 
, DISK-ADRES WHERE ERROR OCCURED 


DO CONTROL RESET 
N 
2 


t 


;G0 
;GE 


ag 
2 
° 
= 
gis 
Fs 
; 
> 
Oo 


POR THe Re 


#1, STIMES 
#1$, SLPERR 


COUNT 


R1, OUTBUF 


FM 
SEKLELAAALAALAASE KALE LS LALALALLSALLLAAAAALLSLLL SSS LLLSES 


; *SURFACE 
+aRt 
#1000 


F 
+ ReRRREE 
CNT. RESET 
CLR 
MOV 


7§: 


MACY11 cot eae) Seid Wo Hh PAGE 68 


CHECK *WRIT 
001000 172222 3%: 


w 
~- 
4 
tse ] 
~-¢ 
oa-« 


is 


San hae etd 
f=] =] = & 


Te3 


ooeno°gd 


0210 010137 032724 


010234 012777 002003 172264 


zeiesunaes g 
: Reg z 
8 ey 
a Q 
Oo 


[ole] 


0 
4) 
0 
0 


Qa a 
Msisasiiaetedeeteteeeasetes tail ciicciiti imme 


MAINDEC=-11-DZRKK-¢ 


DZRKKC.P11 
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m7 te 
a % 
Ps) 


2° 8s 8 
A 2 ie 
2 3Be 923 


a 

im 

3 
Ams 


¥ 
a 


’ 


3 
< 


3 


g 
x 


EER ade 
Anace* 


OONOOOOO00O0O000000 


2 bb -2 FB Oo Be HB hs Ps P= Bs be 


e222 
o£cMoO 
a 
—-DwD 






;SIN SET WHILE DOING WRT FMT 
;T0 DISK-ADRES (AS IN SREG3) 


eve IF reform OR HE’ BIT IS SET 


S 
iE OR benecerY WHILE DOING WRITE 
en on. § brde AS INDICATED IN 


; $ DONE. STARTING AT <DSK-ADRES> 
say 
ie CK_IF_RKDA INCREMENTED CORRECTLY, 


Rion. baat tte comes CORRECTLY ” 


0 See ToR PREVIOUS 19 Th THAT 
NDICATED IN 'EXPCTD 

Q THE NXT SECTOR 

RS, TO WHAT RKDA WILL INCREMENT 
GOING he a al THE LAST SECTOR 


Reg 
ae 


4 4 ot Te ee 
<SS5 


N 

F NOT. BRANCH 

NCREMENT RS CORRECTLY TO ‘EXPCTD RKDA’ 
U FORMATTED ALL 12 SECTORS 

YLINDER 

QOP BACK & FORMAT THE 

iNexT SECTOR 

SRESET THE COUNT FOR 12 SECTORS 

ict BR THE SEC ADRES g airs 


23 
35 


3 


; HAVE U FORMATTED ALL 203 CYLINDERS 
sIF br BACK & FORMAT THE 


ET ee seaesteeaeenseseenstaenesetentenenesesnennes 


K *READ FORMAT’ THE 
READ FORMATS THE ENTRE D aK WHICH WAS WRT 
ii SFORMAT ED IN THE PREVIOUS TEST. THE FOLLOWING CHECKING 


ROY SETS WITHIN A CERTAIN TIME ON COMPLETION 


PRRH ERMA LESS A MUI ea 


? 


on SERA OCCURRED? 
D CORRECTLY. 


a fet fee 





MAINDEC-11-D2RKK-C MACYL1 27(732) 16-SEP-76 16:00 PAGE 70 
DZRKKC. P11 T24 CHECK *READ FORMAT’ FOR THE ENTIRE DISK - 
:#5. IF THE CORRECT HE WAS READ 
#6. IF RK ONEREL oF CTLY 
: ie TORS (1 cv R) AD AT A TINE if SIN’ 
33 SESECTOR. READING TE DONE SH THES CHOP Cet OUR 
:#CYL O-SUR I; aye 1 CUR Bs CYL 1-SUR I; CYL o- 83 
secre 2 “SUR l:---- “CYL 312-SUR 1. IF TESTING ON SIMULATOR, ONLY 
+ CYLINDER (312), LAST SECTOR (13), SURFACE 1 IS’ READ. 
3288 suuneal eectotatentetantnessseasletoneerisemmasnsshotmuacnalelt 
3588 910420 900004 +éT2y: SCOPE 
3589 O10422 012737 000001 o01206 MOV #1 STINES -D0 1 ITERATION 
$550 010430 912737 010514 001110 MOV #1$, SLPE Ser RETURN FOR LUPING 
3592 010436 005037 o02sse CLR INDX1 ${NOX' 20, SURE ACE : BEING READ 
334 010442 013701 o0es44 V DRIVAD, Ri aN Bai vE AGRE es 
3595 b1 0446 01010 MOV Ri, Re 
359 01 005737 002540 TST STAUL s TESTING ON SIMULATOR? 
3597 010454 001410 128 H 
3598 O10456 052701 014533 BIS #14533,R1 cet ITS FOR cr 312, SEC 13, a l 
233 iON Sng MULATOR CK ONLY CYL’3l2 
3601 010462 OS2702 014540 BIS #14540, R2 RKO sot TO THIS wes 
3603 O1D466 177777 002564 MOV #-1,EFLG1 T COUNT FOR ING HOR 
a cums aura PPL ae 
3606 Boe 012705 177465 128 ay #-313,R5 T UP COUNT FOR CYLINDERS 
3507 019502 012737 177764 o02564 “MOV #-14, EFLG1 iT SET COUNT FOR FOR ig FORST 1b BE 
3609 010510 o62702 000020 ADD #20,Re2 THis IS WHAT BKDA SHOULD INCREMENT 
310 ‘BY, AFT FMT’ OF EACH CYLINDER 
li 010514 104412 1S: CNT. RESET GO; DO CONTROL RESET 
3612 *THTS IS A CALL FOR THE ’CNTRL- 
3613 *RESET’ INE. A CONTROL RESET IS 
3614 * ISSUED AFTER A CERTAIN TIME 
3615 IF THE "CNTRL RDY’ DOES NOT SET 
3516 AN ERROR IS — THAT 
361 ?THE PC IN ERROR MES IS THE 
3618 PC WHERE "CNT. T’ IS LOCATED. 
3619 *THIS IS A VERY BASIC 8 IF IT 
bed “OCCURS GO BACK TO TEST 10 
010516 104420 TST.SIN ;CHECK IF SIN IS SET 
a3 IF SET DO ORV-RESET TO CLR IT 
3625 010520 012703 032724 MOV #OUTBUF , R3 ;STORE ADRES OF BUFFER 
3626 010524 005037 O0°eSs4 11$: CLR INDX2 
3627 010530 010377 171776 MOV R3, JRKBA Bore WHICH DATA IS TO BE X-FERRED 
358 010534 013777 002564 171766 MOV EFLG1, JRKWC eae FOR 12 HEADERS 
3630 $10 BE gE REED npc CH CYLINDER 
3632 O10S42 010177 171766 MOV R1, 2RKDA S mee CORRECT 
36 ‘ ts a eR ss ie 
3634 O10S4 012777 o0200S 171752 MOV #2005, RKCS ah 


we ee ees ee 


MAINDEC-11-DZRKK-C 
KC.Pll 


BECP RERRE RSS 


— 


# 
8 


Te4 


105777 


001372 


004737 
010137 
104415 
104045 


neg 


10137 
104901 






FO6 
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CHECK "READ FORMAT’ FOR THE ENTIRE DISK 











171746 2s: STB R cs i, CNTRI ROY SET? 
002554 sits NDXe : VE U NWAITED LONG ENOUGH? 
BNE or iE re Rerun en KB WALT FOR IT 
S5i20s ; noe | RY Sreeio et Palys tenting WHICH 
H ae 
- T DONE 
BRKDAY G0 10 ’BDAY’ 8 BREAK CONTENTS OF 
:$REGIO INTO DR #,CYL,SUR,SEC BITS 
ERROR 4S :CNTRL ROY 1D not Mats 
sREAD F . *RKDA’ IN EROR MSGE 
GI S THE CONTENTS OF RKDA AT THE 
READ DONE STARTING AT <DSK-ADRES> 
_ FINDICATED IN EROR MSGE. 
001000 171710 33: I #3000, ,ORKDS - i *SIN’ SET? 
920414 JSR PC, GT3RG GET RKCS, 
001170 MOV R1,$REG3 3 “ADRES OIERE ‘SIN’ 
ERROR 1 IN ERROR ON MT 
naa 3 CY INOLCATED IN SRECS 
020640 4S: JSR PC, CHKHE1 CHECK IF 2 ERR’ OR ’HE’ BIT IS SET, 
ERROR 46 3 HE HE OR ERR MH WHILE DOING A READ nea 
ie CONTENTS aa eine ME OF ERROR 
— STARTING AT <DSK-ADRES> 
Hi Bieaieo ih apes 
171674 . Ss: cH Re, aRKOA CTLY BY 12 SEC 
001202: HOV Re, SREGIO sGET 1S Eom e KDA Si aren de 
: OR & oFEYL, SUR,SEC BITS 
171660 001202 MOV 4 ORKDA, SREGIO' ey nec D ROK ‘ ape 
:SREGIO NTO pr #, CYL SUR SEC BITS 
ERROR 40 iver #3 En NOT TI SECTORS 
: 3 OF YLINOER IN "oR CAN BE OBTAINED 
o02S64 6S: MOV ~ EFLGI,RO :SET UP C Pyle HEADERS TO B CHKD 
af ieET 8k 1. F SI 
160037 : ae abd 7,R4 YL CYLINDER ARES. ON ae 
7S: CHP Ra, (Ra ‘ ra THE fe 7 ADER ae  aeeoe 
101164 4 TE 
BBL ibe NOV on $reca Heat EAGER HERD RECUG CVD . 
000014 oc01162 ADD RO Ste seo GET THE SECTOR COCTAL NO) WHICH DID 


NOT GIVE THE CORRECT 
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DZRKKC.P Te4 CHECK ’RERD FORMAT’ FOR THE ENTIRE DISK 
91 010722 104043 ERROR ~ 43 sD1D non VE ae CORRECT HEADER 
) oe CT0R oct § oc at} — 
3694 010724 005723 gg: TST (R3)+ HNe ie iat TO ae 1S store 
1 09 INC RO . iat 1 tbo D ALL Ute HeacE a 
% pugres posann 8D fr 
3698 ¥ READERS FOR THIS HE PINDER 
300 010732 004737 020730 JSR PC, CHKWC ie ut F RKC OVERFLOWED TO 0, IF 
$008 010736 104041 ERROR 41 Saat NOT eras 9 AFTER DOING 
*ROFMT OF le SECTORS ON THE CYLINDER 
3704 ; ;NOTE THAT. "RKDA’ Is THE INCREMENTED 
3005 . *RKDA AFTER RDFMT 
010740 002540 QS: TST | SIMUL :TSTING ON SIMULATOR? 
3707 010744 001031 BNE TST2s -IF YES, EXIT 
i8 01074 oo2sse TST INDXL Bre gee SURFACE 1 : 3 
10 Ol 001011 BNE 10$ 
3711 O10754 0025S2 INC INOX1 
sig Ol Db270 oo0g020 #20,R1 INCREMENT ORIV ADRES TO THE NXT SURFACE 
3713 010764 010102 MOV RI. Re 
3714 010766 oocce0 . ADD #20, Re THIS Tera WHAT RKDA D_ INCREMENT 
Rat ER READ FMT HE CYLINDER 
16 010772 000137 010514 IMP 1$ MT THE NXT SURFACE 3 
$717 010776 108: ¢ TNOXt 
18 O11 1 BIC 837,R1 . as SEC, SURF BITS 
3719 011006 1 ADD #40;R1 hig 1s a To XT 
11018 1 MOV RL Re 
1 O11014 oo0g20 ADD #20, wnt ore cyl 
37ee 011020 INC S ALL eyed 
3723 011022 001402 BEQ TeTes a 
3764 011024 000137 010514 IMP Hr NOT OT, 400P & READ FMT FROM 
3726 
3728 : BTEST 25 in ooRGS READ. OF IME ENTIRE DISK On 
75 F HE ENTIRE DISK ( SECTOR) IS DONE 
353 ven CToR’ A SPSuED MEBOER (ORY . 
3733 : MOEA 8 ae 


3734 a of ta eR fs ae PROVING. F THAT ANY 
s#1. CNTRL ROY SETS WITHINA CERTAIN TIME ON COMPLETION 


PT cIN’ ; 
iP iretorn, 


# 

i j 

AS. YER - THI | ECTS THE U 

BMA, SEC#) OF THAT SECTOR. 
F 


antes ng f Ae toh Rerore READING 


SIN 
#THE NEXT SECTOR. READ IS Done IN THIS ORDER SEC 0-1 


. 
3 
4 
’ 
; 
‘ 


ee ee ere Oo + _ 


NAINDEC-11-DZRKK-C MACYLI Ate Ie 7 
DZRKKC.P11 Tes CHECK ° whngd bee pre 


ele TESTING, ON’ § LAT RUAATOR Gh LAST  dvLINgER (31 (312), eta 


sagen SO LIE seers 


aodaeas 


Bt ose Bera? 1 001 teres: V 1,STI RA 
retard b1373 Tee cst NOV sig, SLPERR ir te cI FOR. 
ve Bt ibee Bo004 ee CR wre sELAG LEAR WHEN READING SURFACE 0 
READING SURFACE 1 
nT ts a ee oe 
Pe Bus ah ws aE EY 
3764 bit100 1 177465 "MOV +313 RS a opto OUNT” i 35" YLINDERS 
As 011104 104412 1S: CNT. RESET fis mS wet PSR TR 2 
ee He ter ai 
cae ear a earth 
ae ra oa Bath 
011108 104420 TST.SIN $06 CHECK 
En 011110 o0s037 ogess2 9s: CLR Hox, sORIVE Fe "t 
779 011114 010377 171412 HOV BA He rig wie WHICH DATA IS TO B X-FERRED 
ee eo A aX, gee 
3784 011132 012777 OO000S 171366: MOV #5, ORKCS READ, GO 
ee 11149 105777 171362 2s: TST ARKCS sDID CNTRL RDY SET? 
ge ie Bie = Rar iene vane 
Sap Billed biG1a? Dole0e MOV. RATSREGIO 1G, Sat Rica, WHERE’ ERROR OCCURED 
3793 011164 104415 BRKDAY 560,10 "BOA" & BRE NTS OF 
ve 011166 104045 ERROR 45 aa "ot not set art DOIN 
8, HOSE tht: ne 
3799 CONTENTS OF RKDA A TIME OF ERROR 
3801 011170 032777 OO01000 171324 3%: BIT  s1000,9RKDS § ;DID ’SIN’ SET? 
2802 011176 NO, BRANCH 


061405 BEQ 4$ 


Se ee - - 


I06. 


6:00 PAGE 74 


NAINDEC= 11 -DZRKK -¢ MACYI1 27(732)_ 16-SEP-76 1 
DZRKKC.P Tes CHECK 'READ’ OF THE ENTIRE DISK 
3803 011200 004737 O20414 JSR PC, GT3RG G0, GET RKCS, ER, 0S 
R1,$R : ISK- N 3 
a ln Ser ee 
47 40 ug: JSR PC, CHKHE1 “CHECK IF ERR’ OR 'HE’ BIT IS SET, 
stg 011212 004737 0206 iH ies, . ; By See 
ze10 011216 104046 ae, ERROR 46 ono TERR ON os 8 READ OF 
ll , oh RODRES 
; ie IVE 
i cert oF onset FFT non 
eat 011220 O113 cs: CHP RI, (R3) HE C ECT DATA WORD CVD 
16 O11 10 01162 MOV T TD DAT 
3515 we 19435 001164 MOV i deol . Bat RD RECVD 
518 TRESS Fire _— ERROR 4 ee ie Fi EVE THE CORRECT 
gS A WORD DISK K ON DOIN ING, 
3821 
3655 tok Br peer pate tHe 
3824 Tena RO 0 ote cTOR I UNIQUELY 
se Ress hat SECTOR om 
3828 give 920177 171270 6S: CHE Ri, @RKOB ee iS, eral KoRRECT i ROR 
3830 011250 010137 001162 MOV = R1, SREGO :NO "GET EXEC RKDB 
3831 011254 017737 171256 001164 MOV JRKDB, $REGI GET RKDB REC 
7 Riper cetare a FOR RKLiC® ARTER BREAD RKOB 
3834 s CONTAINS GHECKSUM FOR THE SECTOR 
a3 RHE REAS FOR RK11D, AFTER READ 
3837 :RKDB CONTAINS THE LAST WORD 
3838 zREAD f renal CTOR 8 
3840 011264 005737 002540 7S: TST SIMUL sTESTIN ING ON SIMULATOR? 
ss tlie Bees Ea ah a sl 
34 011276 001302 BNE 1$ ee CUP BAK Che THE XT 
11300 01 177764 MOV #-14, RO THE COUNT FOR 12 SECTORS 
3Bu9 He bHe7O1 000037 BIC 137,41 CLEA BR SECTOR, SURF AC BITS 
3 tak Bien : & i. 
3851 011316 1 000020 ADD —s- #20, RI HINCRENENT THE THE ORES TO NXT SURFACE 
38°3 O11309 DoSoOd 9: oR fe 
3854 01132 062701 O00040 ADD #40,R1 s INCREENT TO NXT CYL 
3855 O11 INC RS CHKD ALL 203 CYLINDERS 
3856 011334 O01 BNE 1$ : IF NOT, LOOP BACK $ CHK THE NXT CYLINDER 
3057 : YES 


a ee ee = 


~ 


be 


wadaed cad 


Ne) 
22 


ERERER ERB 


—— 


BEER eE RE RP ener etity 


3B 


saa 
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CHECK ’READ’ OF THE ENTIRE DISK 


ae ee eee 
, :* THIS KS S SEEK IN ON REFERENT VELOCITY TY MODES ( 


i it in’ oF hv Rev Binet Po Grek The SESE MESEIDAERSbEK.1S gre BOT 


A DRIVE RESET IS DONE TO INITIALI ze 


iy whe Leet TONING 
ugg AEE eres 
p00005 001206 MOV #5, STIMES ::00 5 ITERATIONS 
002566 MOV #SEEKO,R3 ANITA gp OINTER TO THE FIRST 
o02sse2 CLR _—sCINDX!1 *INDX1, WHEN O INDICATES SEEK IN FWD DIRECTION 
: WHEN 1 INICATES SEEK IN REV DIRECTION 
002526 MOV S,RO 
002522 MOV Ape’ RI 
002524 MOV RKER 
011400 001110 MOV #1S, SLPERR BET PELURY, ADRES FOR LUPING ON 
1$: NOP 
2s: OAT RESET G0, DO CONTROL RESET 
. -}THES IS A CALL FOR THE *CNTRL- 
PRESET’ ROUTINE. A CONTROL RESET IS 
: ISSUED AND AFTER A CERTAIN TIME 
:IF THE ’CNTRL RDY’ DOES NOT 
*AN ERROR IS REPORTED. NOTE THAT 
*THE PC_IN ERROR ME THE 
:PC *CNT.RESET’ IS LOCATED. 
*THIS IS A VERY BASIC ERR & IF IT 
“OCCURS GO BACK TO TEST 10 
TST.SIN *GO, CHECK IF SIN IS SET, IF SET 
DO’ DRV-RESET TO CLEAR IT 
oo2s44 MOV DRIVAD, R4 GET DRIV-ADRES 
ae a nn a 
haaalt MOV #11, aR0 :SET *SEEK’, 5. 
CHKCRDY :G0 CHECK IF CONTROL ROY IS SE , 
IF SKIP THEE 
ERROR 21 : CNTR ¥’ DID NO 
; rot tive TO THe ORTV Rao ACK’ 
; COME BACK 
tT REREUPON tine YEntoL RDY’ 
4$: CLR BS 
000100 cs: IT #100, RI hy R/W/S _RDY SET? 
cea Some =| Be Fe 
ERROR 26” cae fo fi Rot Set Oh 
$: T #1000, aR1 
eee . a . if ? BID gin Ser? 


KO6 
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DZRKKC.P Te CHECK 'SEEK’ FUNCTION, WITH DIFFERRENT VELOCITY MODES 


C.Pll 
i a1is68 Tes68i 020406 PC, GTYRG if I BKCE, R, DA 
16 O11464 ROR 1 STA ON BOING’ SEEK 
eH il 10 140000 7$: IT #140000, JRO : ty SE ’"OR ’ERR’ SET? 
SHE BSG SBF coos Fl Flore 1S cer ms, a, 
3333 Biteae l ERROR BS’ Pan be hE? att’ 
3921 ioe TO CYL AS tet 
see IN RKDA 
3354 011502 022710 000210 8S: CMP #210, 3RO sDOES RKCS STILL CONTAIN THE ’SEEK’ FNCTION 
e PeO8 Sticss OOLIe4 Sy s«RO, SREGI sYES SEF RKCS RECVD 
L 
3359 piteig 11534 000210 001162 MOV weit, $REGO cet See fe 
3928 011522 104024 ERROR RKCS SHOULD CONTAIN THE ’SEEK’ BITS 
$303 IF NOT, ERROR 
3931 O11 171004 QS: CMP R4, IRKDA sDID RKDA CHANGE? 
3932 piles: 001406 BEQ 10$ 
3933 011532 010437 001162 MOV RY, SREGO YES, GET EXPCTD? 
3334 011536 O17 30 70772 001164 MOV JRKDA, SREG1 *GET RKDA 
$335 o11544 1 ERROR 27 *RKDA CHANGED AFTER DOING SEEK 
3937 01154 010477 170762 10$: MOV R4, JRKDA sADRES THE DRIVE,SEC 0 
3938 011552 012777 032724 170752 MOV #OUTBUF,QRKBA  ;READ ONE HEADER INTO THIS 
3939 011560 012777 177777 170742 MOV a1 SRKAC * BUS BORES 
3940 011566 012710 V #2005, JRO : 
394i 011572 104413 CNT. RDY :WALT FOR CNTRL_RDY 
3342 011574 021337 032724 (R3) , OUTBUF “WAS THE CORRECT READEYR READ (FROM 
3943 011600 001410 *CYLINDER TO WHICH SEEK WAS DONE BEFORE) 
sai O1 ted 001168 CLR SREGO 3 aF WHERE HOR WAS RD (0) 
11606 O11 1164 V (R3) SREGI : HE 
3946 O11612 013737 032724 001166 - MOV QUTBOF , SRE *GET HDR RECVD 
2+ en Mateo — PRONE HORE NCTE THAT ed PURE SEEK Goce 
3949: Done TO gts CYL BEFORE READI 
seer. 11822 oo2sse2 11S TST INDX1 : UezNG K NEREVRSE’ DIRECTION? 
3225 OLiese | poiod? ee SEEK IN REY 
3953 011630 005723 TST (R3)+ NO, INCREMENT PTR TO NXT SEEK ADRES 
3954 011632 022703 002574 C #SEEK2+2,R3 :DONE WITH ALL SKS IN FWD DIR? 
3955 011636 001260 BNE 1§ *NO, GO & DO NXT ONE 
3956 011640 37 oo0esse INC INDX1 SET FLAG INDICATING SK IN REVRSE 
3957 011644 005743 TST =-(R3) 
3958 011646 005743 128: TST -(R3) sPOSITION PTR TO NXT SK IN REV 
3959 911650 022703 o0es64 ~ CMP #SEEKO-2,R3 :DONE WITH ALL? 
$360 011654 001251 _ BNE 1$ IF NOT, DO NXT ONE 
sop 
3964 He ATT DRIVE MeacT fon tor ori : 5, 
3369 D EK-READ) THEN A DRIVE Lure 1Scues. 
3968 7 ie: Teter te HEADS WE! T BACK TO 0 BY 
3969 :#00 AD & CHECKI THE CORRECT WORD 
3970 "WAS RECEIVED. IFS TESTING ON SIMULATOR THIS TEST IS SKIPPED 


rr ee we see 


LO6 
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DZRKKC. P11 Te? —s CHECK 1 ORIVE RESET FROM LAST CYLINDER 


ie i PS ileal 
BEER Br3993 oo000s 001206 " KOV = #5, STIMES ;;00 5 ITERATIONS 
011666 005737 002540 TST SIAUL iR U_ON A SIMULATOR? 

Gir seed 002526 MOV Arce RI " 


700 104412. CNT.RESET ONTROL RE 
, ‘Tats ck tg FoR Te MTR 1S 


: ISSUED AND BF TER A CERTAIN 7 
RL_ROY’ S NOT_SE 


! BN ERROR ts Rove. THAT 
$365 *THE PC IN RAO eee IS THE 
3984 :PC CNT. RESET’ SLOCATED, 

*THIS IS A VERY BASIC & IF IT 
86 OCCURS GO BACK TO TEST 10 
3987 011702 oosoo0 CLR RO 
3988 011704 012703 032724 MOV SOUTBUF ,R3 sADRES WHERE DATA WILL BE READ INTO 
3989 011710 013704 Od0eS544 MOV DRIVAD, RY 
3999 011714 010405 MOV RS 
3991 011716 052705 014500 BIS #19500, RS ;SET CYL ADRES=312 (OCTAL) 
3992 01172 Ot 77 170606 MOV RS, JRKDA ; ADRES THE DRIVE, LAST CYLINDER 
3993 011726 Ole 177777 170574 MOV #-1, JRKWC WORD 
3334 011734 010377 170572 MOV R3, JRKBA INTO THIS MEMORY ADRES 
3336 011740 012711 ooD0cs MOV #5,0R1 ;READ, GO 
3998 011744 oosooc CLR RO 
3999 011746 104413 1S: CNT. RDY sTHIS IS A CALL FOR CN.RDY ROUTINE 
apo SHHICH WATTS FOR CNTR ARDY TO Ser. 
se fe IF Merit A AE RTAIN TIME 
4003 sCNTRL RDY DOESN'T SET fis ERROR 
Hoos pote ; - i on 1663 ASF 9 11/ ie MS ee 11/45 
iit ibe 1 BEQ 3" VES, Seek TO 3k T hoe BNE CORRECTLYS,@ 
4008 011754 010537 oD116e2 MOV RS, SREGO GET EXPCT 
4009 011760 337 OO1164 MOV JRA, SREGL GET WORD Hone 
4010 011764 010537 001166 MOV RS, $REG2 GET DSK-ADRES FROM WHERE WORD WAS READ 
4011 611770 1 ERROR "DID NOT READ BACK CORRECT WORD FROM 
4012 *LAST CYL, SEC 0. IF TEST 45 & 
4013 “WERE SUCCESSF ty THIS 
4014 *ERROR MEANS THAT IMPLIED SEEK 
4pis *TO CYL 312 COULD NOT B 
4016 011772 012711 oo0015 3S: MOV #15, aR1 “DRIVE RESET, GO 
4017 011776 104413 CNT. RDY sTHE IS A CALL FOR CN.RDY ROUTINE 
4018 “WHICH WAITS FOR CNTRL RDY TO SET 
4019 7) RETURN IS MADE AE TER ke RDY 
4020 ;SETS. IF WITHIN A CE TAIN T Me 
4021 | CNTRL RDY QESN'T SET AN 
upee2 : MESSAGE 1S GI Wa TING” ure 
4upo3 *883 MS FO yh MS FOR 11/45 


40e4% 012000 005000 CLR RO 
4025 012002 032777 000100 170512 4S: BIT #100, dRKDS ;DID R/W/S RDY ser? 
4026 012010 001011 BNE 5$ ;YES, BRANCH 


rar oe 
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DZRKKC.P11 Te? CHECK DRIVE RESET FROM LAST CYLINDER 


4027 g12012 012702 177763 Hoy 4-15, Re IF R oN Me SLOWER MACHINE memne 

4 pt 8 nea ANE 2 ith Neop HAN THESE ¢ 

4030 hy j INSTRUCTION TO *NOP’ T 

4031 LOOP TIME WILL BE REDUCE 

40 :T0 1100 MS 

4033 : 
*THE TOTAL TIME FOR THE ABOVE 

4035 LOOPS (W/O PUTTING ’NOP’S) IS 

75304 MS FOR 11/20 AND 

4037 71061 MS FOR 11/45 WITH MOS 

4038 :OR BIPOLAR MEMORY 

4039 O12022 005200 INC RO WAITED LONG? 

4040 O12e02e4 001366 4§ *IF NOT, LUP BAK & WAIT 

4041 IF YES. ERROR 

4042 012026 004737 O20406 JSR. PC,GTYRG -GET RKCS,ER.DS, DA 

443 Ole032 104026 ERROR 26 . sR/W/S ROY iD. NOT SET AFTER 

4O4S 012034 032711 140000 cs: BIT #140000, aR1 *DID HE OR ERR BIT SET? 

Hove 012040 001403 BEQ 6$ TF NOT, BRANCH 

4p4 g12042 004737 O20406 JSR PC, GTYRG sGET RKCS,.ER.DS.DA FOR ERROR MESSAGE 

4yO49 012046 104022 ERROR 22 *HE OR ERR BIT SET ON DOING DRIVE 

4050 *RESET FROM LAST CYLINDER 

4051 012050 005205 6S: INC RS “POSITION RS TO EXPCTD RKDA 

4052 012052 020577 170456 CMP RS, JRKDA ‘DID THE CYL ADRES BITS IN RKDA GET CHANGED? 

4053 012056 001406 BEQ ? :N NCH 7 

4054 012060 010537 001162 MOV RS, SREGO GET EXPCTD RKDA 

4O5S O1e064 017737 170444 001164 MOV JRKDA, SREGL :GET_RKDA RECVD 

HOB 12072 104054 ERROR 54 sCYLINDER ADRES BITS IN RKDA 

4058 : DRIVE RESET, FROM LAST CYLINDER 

4059 012074 012777 177777 170426 7S: MOV #-1, IRKWC : 1 WO 

4060 Olel02 010377 170424 MOV R3, JRKBA *INTO THIS ADRES 

4061 O121068 010477 170422 MOV R4;aRKDA *FROM THIS DSK ADRES-CYL 0, SEC 0 

Des 012112 012711 oo90005 MOV #5, JRL READ, GO 

4065 012116 OO0S000 CLR RO 

4066 Ol2e120 104413 8S: CNT. RDY sTHIS IS A CALL FOR CN.RDY ROUTINE 

4067 ‘WHICH WAITS FOR CNTRL RDY TO S 

40 *@ RETURN IS MADE AFTER CNTRL RDY 

4069 :SETS. IF WITHIN A CERTAIN TIME 
:CNTRL_RDY DOESN’T SET AN ERROR 

4071 *MESSAGE IS GIVEN. WAITING TIME 

4072 7883 MS FOR 11/20, 175 MS FOR 11/45 

4073 912122 13 9S: CMP RY, ORB WAS THE CORRECT WORD READ? 

4074 Ole12e4 001407 BEQ TSt30 *:YES. EXIT 

4075 Ol2126 010437 001162 MOV RY, SREGO “GET EXPCTD WORD 

4076 Olel3z2 011337 001164 MOV JR3, SREGL ‘GET WORD RECVD 

4077 012136 010437 O01166 MOV RY, $REG2 GET DISK ADRES WHERE ERROR OCCURED 

4078 Olel4¥e 104044 ERROR 44 *DID NOT READ CORRECT WORD FROM 

4079 *CYL 0, SEC O. IF TEST 4S & 46 
WERE SUCCESSFULLY DONE THIS 

4081 “ERROR COULD MEAN THAT DRIVE-RESET 
*DID NOT BRING HEADS BACK TO 0. 
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012156 
012152 


i he 
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Te? CHECK DRIVE RESET FROM LAST CYLINDER 


5 RERKAAL RAL AAL ALE LALA AAA RA LALLA ALAA RAL RA AE LALA AAARARERAAA ARES 


OS og eB set BLE "AUSEY' UB PERSE FOR 


1oR 5, Caeser o ATH A SPECIFIC. Shits AND OfHIS WRITTEN ~~ 
E USE OF IN THE Ne 


BL RITE-CHECK’ 
Pe aA tl 
CNT. RESET DO CONTROL RESET 
soot IS A CALL FOR THE ’CNTRL- 
*RESET’ ROUTINE. A CONTROL RESET 1s 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY’ DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
; THE P ERROR MESSAGE IS THE 
*PC ’CNT. * TS LOCATED. 
‘THIS IS A VERY BASIC ERRS IF IT 
“OCCURS GO BACK TO TEST 10 
TST.SIN *CHECK IF SIN IS SET, IF SET 
*DO DRIVE RESET TO CLEAR IT 
MOV RKCS,R4 
- THE FOLLOWING CODE IS FOR SETTING 
: t/ FER IN MEMORY (STARTING AT 
:OUTBUF), WITH A PARTICULAR 256 WORD PATTERN 
: STARTING THE FIRST WORD R 
: 0 BYTE WILL BE A COUNT PA 
;FROM 0 TO 255 (DECIMAL), WHERE 
*HI-BYTE WILL BE THE COMPLEMENT OF LO BYTE, 
A DECREASING COUNT PATTERN FROM 255 TO 0. 
°1.£.THE BUFFER WILL LOOK LIKE: 
: OUTBUF (1 111 111 1 00 000 O00) 
: OUTBUF +2 (1 412 111 00 000 001) 
LAST WORD (0 000 O00 O 11 111 111) 
MOV #OUTBUF , R 
MOV #1774018 sPATTERN GENERATING NUMBER 
MOV O.Re *SET UP COUNT FOR 256 WORDS 
MOV n7 7400. R3 SET UP THE FIRST PATTERN 10 B WRITTEN 
aor ae R3, (RO)+ sSET_UP FIRST WORD IN 1/0 BUFFER 
INC Re INCREMENT COUN 
1S: ADD R1,R3 >SET UP NEXT WORD. P TTERN 
MOY ‘pee WRITE IT IN NXT * BUEFER WORD 
INC R HAVE U WRITTEN ALL 256 WORDS 
BNE :IF NOT GO & WRITE NEXT PATTERN 
MOV RKWC sWRIT 
MOV saute saRKoA :STARTIN SWORE, BUS ADRES 
MOV "TO THIS DISK ADRES, CYL 0, SEC O 
MOV ate ;WRITE, GO 






NAINDEC=11-DZRKK= 

DIRKKC.PLi 730 
4139 012240 105714 
430 Qigeve 00003 
4141 O1 737 
4142 012250 1040 
414 

S144 

4145 912252 

146 Qieesy 106777 
4i4? OI 100411 
49g Oigebe Dose02 
493 012264, 00137 
4151 012266 904737 
4i52 Giese 013737 
453 012300 10415 
> 

4155 012302 104031 
4155 

mis 

4188 

4160 ‘ 
4161 012304 004° 
4162 

4163 012310 104032 
4164 

We 

aie? 

4168 

4169 912312 920077 
4170 O12316 001406 
4171 Ole320 910937 
4172 Ole324 017737 
4173 Dless2 104035 
4174 

4175 

4175 012334 004737 
4177 

4178 012340 104034 
4179 

4180 012342 909737 
4182 012346 104033 
4183 

4184 012350 004737 
4185 

4186. 012354 104036 
4187 

4188 012356 022714 
4189 4 


01 
012376 





MACY 
D20414 


170246 


O20406 
002544 


C2064 


170214 


001162 
170202 


020730 
020674 
020754 


ocd20e 


oode0e 
001164 


athe 





(732) 


001202 


001164 


001162 





38: 


4$: 


cs: 


6$: 
73: 
8S: 


9$: 


TST8 


BRKDAY 
ERROR 


16-SEP-75 16:00 PAGE 80 | 
- 256 WORD BLOCK ON SECTOR 0, CYLINDER 0 


es: 


aR4 

$-2 

C, GT3RG 
30 


C,GTYRG 
DRIVAD, SREGIO 


31 


PC, CHKHE 
32 


RQ, aRKBA 
RO, SREGO 
JRKBA, SREGL 
35 

PC, CHKWC 


34 
PC ,CHKDA 


ee oop CNTR, for CLEARED AS GO WAS SET? 
T Rees ‘DS 
ich NTRL L ROY, FR, NOT CLEAR AS GO WAS SET 


Ore CR rr ed set? 


tcp Lot [oe Bz Enoune & WAIT 


iif YES, ERR RKCD, ER. OS. DA 
; Get THE STARING ADRES 
wf CONT TENTS OF gerecio INTO 
SCNTRL ROY O1D SUNT T on COMPLETION 
WRI Panes rae oN , SEC O 
ae oF orton see gives IME OF EROR 
BONES STARTING AT <DSK-ADRES> 


*ERR’ OR On RE BIT IS SET, 


RETURN 
ant one ON DOING WRITE OF 


SEC 0 
are AT <DSK-ADRES> 
EROR MSGE GIVE 


S THE 
a OF RKDA AT THE TIME OF EROR 
BA INCREMENT CORRECTLY? 


eve 
ACM 


GE 

tor DID NOT INCREMENT CORRECTL 

ORY abeeror tar OETA BYTES) AFTER WRITE 
4 ON C 


YL 9 
CHECK rh RKC ’OVERFLONED TO 0 


Rata DID DHT OVERFLOU, 8 AFTER 8 


WRITE OF 256 WORD CYL 0, SECO 
CHECK Te fk INCRENENTED BORRECTCY, 


AF Ae. URN HE 
DA Di: SNOT INCREMENT BY 1 AFTER 


A WRITE OF at IN CY’ 7 SEC 0 
s CHECK Je ANY BIT RKER I 


I RETURN HERE. 

AKER” Bf T ON DOING WRITE ON 

: RO, SECTOR 

STILL CONTAIN THE WRITE BITS? 


CONTAIN THE *WRITE* 
HE FUNCTION WAS DONE. 











* pace ene 
NACYLL G7(732) 16-SEP-76 16:00 
Te*’ "36 woRo BLOCK ON SECTOR ; EYLINDER 0 . 


AE Senter Tar atte ea ne caer seen 
reTMIS TEST sy iF THe" URI YE G6" 286 HOROS DONE IN PREVrCUS 


ets erage eat 


c READ (ST eo AT *OUTBUF’) 
143) ed AN ERROR IF THE DATA READ BACK PRON "DISK DOES 


MPARE WITH DATA THA wats TO HAVE BEEN WRITTEN 
a, See yRnapmanpenie ; 


t$ra: CN ant Reser 
A CALL FOR THe *CNTRL 


CONT RESET IS 
AIN Up a2 
T_SET 


TST.SIN 
#-400,RO 
sOUTBUF , R1 
(Rl)+ 
RO 
8g 
te 

KBA | 
SOUTER soko : HIS DISK ADRES 


#5, IRKCS 


Renee 


PPy 
2 


91 
Cl 
Gl 
Oi 
O01 
01 
Ol 
Oi 
01 


é 


ie CTRL ROY SET? 
IteD ton ENOUGH? 
IF NOT, LUP BAK & WAIT 


PC, GTYRG 
001202 V DRIVAD, SREGIO 


45 


DONE S 
ee IN ER 
170006 2: T #1000, :1§ SIN SET? 
cs is 135 p Rl 3;1F YES, EXIT 


s177797- 2 





DO? 


ons MACY11_27(732)_ 16-SEP-76 16:00 PAGE 82 
DZRKKC.P T31 CHECK THAT WRITE WAS DONE CORRECTLY 


012703 cour R3 
012705 


: ; n1774 »Re 
Bis U7) Mas ne sci veo se os eg 
HAT WAS SUPPOSE TO BE WRITTEN 
001414 7$ ives, BRANCH 


10 R1,$R & OF WORD 
boar 3? ADD fae 1,00 on I Bi ERROR THAT WAS 5 eootes’ to ,377,400) 
; N) 
911337 M (Ra), sree ; ( THAT AD 
1040SS 5S ; BACK WORD THAT HA SUPPOSED 
N WRITTEN MioUStY, POSITION 
N ERR OR_IS AS INDICATED BY 
# (SREGO), SEC 0, CyL 0 


EXIT 
t INCRE MENT POINTER TO NXT WORD (THAT 
AD BACK) 


;WAS_RE 

Ri SHAVE —CHKD ALL 256 WORDS? 

6$ 3 IF. NO Ut aAK © Co THE NXT WORD 
sIF YES, EXIT 


iret ae CHECK OREAD CHECK’ FUNCTION © CYL INO PRELAELAALS RE 


serdte T t ATC SR RE AO Ch check’ otre, “ISING THE DATA BLOCK 
Sea ai aes IN ab AS vaya TES "HENCE THE ares WHICH 


TO Tats TEST 
pe he ha 


+6732 OPE 
aN ar RESET DO CONT ROL ue 
CONTRO 


TST.SIN : IN IS SET, IF SE 
: SET TO CLEAR IT 
BKCS,R 
RK 


ft 


;READ CHECK 2S6 WORDS 
;STARTING FROM CYL 0, SECTOR 0 


;READ CHECK, GO 
Oe eoRaNC CNTRL ROY GET CLEARED AS GO WAS SET? 
;GET "KES. ER, 0S 


—— OO0OKO00000 


8 
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CHECK "READ CHECK’ FUNCTION - CYLINDER 0, SECTOR O 


Bise3 tBUgH? as: FRR RRpy © Heo ch Phe ROY PIR NOT CLEAR 85 G0, 
: SKIP THE EROR HESSAGE 

4310 : on TO ’READ CHECK 
4311 O12674 104056 ERROR S6 SCNTRL ROY DID NOT SET NG 
431 READ CHECK’ F YL 0 
4313 012676 e711 140000 38: SIT #140000, aR1 ;DID SER” OR "HE? BIT SET? 
4315 13h 737 020414 FER PC, GT3RG ih. Bet RKCS, ER DS FOR ERROR MESSAGE 
431g Sle7i0 104087 ERROR §7 ; ERR OF He ete ETOH DOING. 
4318 012712 932777 OO00002 167604 4S: BIT #2, IRKER DID Peet BIT a e't4 RKER?’ 
4319 Ol 001404 SEQ NO, BRANCH 
4320 Ole722 017737 167576 001162 MOV DRKER, SREGO :GEt 
4321 12730 104060 ERROR 60 sS0ET - CSE : ON DOING "READ 
4323 : HE EOULS HAVE aot eRaRoH 102 ALSO 
4324 012732 005712 cs: TST aRe DID WORD COUNT OVERFLOW TO 0? 
4325 O1 14 Q :YES, BRANCH 
4 1 lle 991168 V , $REGO GET’ RK 
4 1 lil 1164 MOV dR1, $REGI GET RKCS 
4 012746 104061 ERROR 61 : ID NOT OVERFLOW 
4 iON D Stk: Kg CYL 0, SEC O 
1330 012750 013702 002544 6S: Hoy DRIVAD, Re 6 SHOUL ENT 
4332 ot MP BS ara i Mis ak ioerderby ee 


Bolles vga SRecL = EGET KDA RECVD. 


sRKDA DID NOT INCREMENT CORRECTLY 
ING *READ CHK’ ON 


it 

a ee en 
4341 Bt 3008 eed 032724 001162 MOV SOUTBUF , SREGO Get XPC RKBA 

weg GL fhe, SOS Pilon BSE Roatan en gor “ae coe 
4a nor ane WSF D ne te S sbiko 

4 013016 022737 052525 032724 9: CMP #52525, OUTBUF je QUT ontagy. THE 

a8 Sa lata 
4 013024 001412 BEQ TST33 aye Exit 

4351 ’ is sal : ae ferokr ERROR IF *OUTBUF’ CHANGED 

4325 pt apse 1 Bett 4 MOV tseaee, ebl ier Sy N *OUTBUF’ 

4354 013042 013737 032724 O01166 MOV QUTBUF,SREG2 © ;GET WORD FOUND IN *OUTBLF” 

4355 013050 104064 ERROR 64 MENTIONED IF ‘WRITE’ OF 

4 : A k 

4357 ; CORRECTLY FORE, THEN THIS ERROR 

i TREAD CHECK 

4361 $ breet a3 CHECK THE “URITE CHECK’ FUNCTION © ON CYLINDER O- 

4362 TEST 3 CHECK THE "WRITE CHECK’ FUNCTION - ON CYLINDER 0, SECTOR O 
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DZRKKC.P11 733 CHECK THE “WRITE CHECK’ FUNCTION - ON CYLINDER 0, SECTOR O 


Hat bata Be GeeTaae ty bananas A paevious = 


erent E THE TEST WH 
Beh ON bt aS ¢ at 
et MEMORY BUFF: HIS TEST. 
Sener 
NT.RESET 
tis. A A CALL FoR Te *CNTRL- 


a iA, en 


ihe ae ERR aa the 
CNT RSE ’ IS LOCATED. 


THIS. 15.8 VER A VERY KYO FEST 10 IF IT 


TST.SIN CHECK I Bite Is SET, IF SE 
DO DRIVE RESET TO CLEAR eT 


S3ee 


AUT GEM Fit ORS ones 


Pac TER ok DI5K, DATA BLOCK (CYL 0, SEC 0) 


;GIVE SOME TIME 
;D1D CNTRL ROY CLEAR AS GO WAS SET? 


iC ID NOT LE AS GO WAS 
; Seb Se ROY. 1S Set 


; DI Peer "ATER 
Bl 1 ON 


| 
| 
: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


QWWWW WWWWUIWUWIW 


REESE YRBCSREB 


167322 SS: 
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CHECK THE *WRITE CHECK’ FUNCTION - ON CYLINDER O, SECTOR 0 


4y ” RIGHT THIS ERROR D NOT 
44 . HAP N UNLE RE IS A A FAULT IN THE 
44 ~ ‘COMPARING LOGIC OF WRT CHK 

“4 alge 005777 167312 6S: Ist QRKHC : i RKWC QVERFLOM? 

44 13518 Bid398 167304 001162 MOV Sake SREGO | "GET RA 

y4eS 013226 011137 OO1164 MOV DRI,SREGL si ia. 

4425 013232 104061 ERROR 61 5 RKHC BiB, No NOT OVERFLOW AFTER - 

4y, WRITE CHEC HECK ON cyt SEC 0 

wee 013234 013704 002544 73: MOV DRIVAO, RY RK A SHOULD INCRE REMENt 

asa eats 167266 ING RY, IRKDA 10, thea FTES ve CORRECTLY? 

4431 O13e46 001408 3 BEd aw : YES, SRA tens 

wuss Biases Bigea> TeSHeG cones  =->ssov arin, $REGL pe ae 

4434 013262 104070 ERROR :RKDA DI NOT INCREMENT CORRECT 

wigs : (BY 1 SEC } AFTER WAT HK ON sec 0, CYL 9 
- 4436 013264 022777 033724 167240 8S: CMP SOUTBUF +1000, RKB rex NCREMENT CORRECTL 

wa33 pier ieee 01162 ma | iy , SRE bet RKBA 

w433 bis08 : o1?73 Z fesesy ff 001164 HOV gk saide sree ek a 

oa B Orel a aE 
4443 913312 022711 000206 9 CMP #20, aR La TILL RORTAEN Ce "URI CHK BITS? 
4444 013316 001406 BEQ : ; 
w445 013320 012737 O00206 001162 MOV #206, SREGO 3NO, GE EXPCTD RKCS 

4445 013326 011137 0601164 MOV aR1, $REG) >Get KES _RE 

4447 613332 104024 ERROR 24. *RKCS BITS CHANGED AFTER WRT CHK 

BYE jeteeeeanecanenansnsesserenenesbarnenenenenenanssanseenensatts 
4usO TEST 34 T IBA INHIBITS INCREMENTING OF 

4451 s#THIS TEST CHECKS THR T THE ADDRESS DOES NOT INCREMENT WHEN 
w5e #THE IBA BIT I fh Fehon OPERATIONS; 

4 #1) CL 

4ysy *#2) READ Oa “Ee Ror OTHE 25 uORD BLOCK THAT WAS 
HSS WRIT EN-IN APR ay ie ¢ Tat EST D HAVE BEEN 
Wu? 893) oS Soe oon 

4458 244 THAT T INT 

ne ee fed ea rer 
4h ea A a ERS. SE 
Nee 013334 oo0004 $6734; 

1 104412 CNT. RESET i CONTROL = 

ties a My ah e is 
4467 TP Fe 

wes HE PC a "oe sy 

4470 i *CNT.RESET’ f ATED. 

447] sTHIS S A VERY BeSIC IF 

4475 013340 104420 TST.SIN EUR Te SIN IS SET’ IF SET 

4474 , D0 DRIVE Bevet TO CLEAR IT 


HO7 
BOR PE tay CHECK THAT TBA IRRIBTTS ENCRERERTING BF RKBA 


4475 013342 013701 002526 MOV RKCS,RI1 
44 ieee blsfte tae y WOE BO, sSET UP COUNT FOR 256 WORDS 
478 l 1 MOV Re, R3 
4480 013360 005023 1S: CLR (R3)+ sCLERR OUT THE 256 
ques BLSsed | SbLa7S BNE is BY OUTELF pallens sige 
44g3 01 1 1 167134 MOV 
Ee biSere 67 i MOV Re ea Inve Inv Tits fis ADRES (TBR WILL 8 SET) 

44 l 1 44 167126 MOV HAD’ @RKDA ROM T co CYL 0) 
wage i pe arena WRITTEN TN 8 
a 013408 012711 o0400S MOV #4005, dR! *READ, 43, “fea Set 
4490 013412 005037 o02556 CLR COUNT 
wal ates ea 2s: STB aR1 iO] CNTRL ROY SET? 
we i 002556 INC COUNT sWATTED LONG ENOUGH? |» Be 
wae OL S30 va 020406 aye Be cure iat it KCS ER, OS, DA 
4496 013434 013737 O02S44 001202 MOV pRtvag $REGIO ARTI 
pe O13s442 104415 BRKDAY scones OF G10 
4438 013444 104045 ERROR 45 Roy’ Dio NOT SET AFTER DOING 
4501 013446 004737 020646 38: ISR PC, CHKHE 2 IF’ Bae "HE? BIT IS SET, 
uE0 013452 104046 ERROR 46 RR Bit BET ON ON DOING READ FROM SEC 0, 
4504 =e oY 9, (INDICATED IN |. <DSK-ADR ADRES) ) 
#508 S CONTENTS. OF RKOA AT HE TIME OF EROR 
4508 013454 020277 167052 4§: CMP R2, IRKBA ;DID_RKBA_ INCREMENT? 
4509 Ol 1 BEQ § OK IF NOT 
4510 pt ae8 ste 001162 MOV PH SREGO GET EXPCTD Brea" 
4511 O13466 O01 167040 001164 MOV JRKBA, SREG1 GET RKBA REC 
Hele 013474 1 ERROR 72 RK WHEN IBA BIT WAS 
4514 013476 032777 O01000 167016 SS: 1T 81000, ARKDS 1S SIN SET? 
4515 pt aere p01 at rate sa YES, EXIT 
4516 01 3506 Ol 177400 MOV 8-400, RO 
zig 13512 G2e712 000377 CMP #377, Re 5 CHECK PT 5 a £8, 

1 FOYL ey THAT we boxe 
Wee) Biaeen Bier 001162 a EAPCTD HORD Bre AST WORD. OF THE BUFFER 
4522 Bt 3ese pez nee MOV tao)’ Seeet ; WBRD CVD PLAST URE SEC 0) 
Hes 013532 013737 002544 001166 MOV DRIVAD,$REG2 30 S ERROR OCCURED 
Se 3( ‘ YL O WORD) 
4526 O13540 104044 ERROR 44 AA WORD IN He thesia 
mat : . F UoRD RESO BAK FROM sec 
4529 CYL 0 THIS DID NOT HAPPEN IF THE ERROR OCCURS 
4530 013542 005722 6S: TST (R2)+ * INCREMENT POINTER TO THE NX 


HE MERE PRAM ARES Ae ha SOEs 


107 
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CHECK THAT IBA INHIBITS INCREMENTING OF RKBA 
177773 MOV #-5,RS ALL ONLY S MESAGES FOR ERR : 16, 
7S: iN FO ac HED ALL. aSé WORDS IN THE BUF 
TST (Re) ihe tee WK THE xt ono? 
001164 | Bre G1 oo ORO 
001166 NOV =the), SREG2 T WORD THAT WAS ioko IN OTHE BUFFER 
Boies noY sOL sTHIS ’WORD 9’ IN MEMORY BUFFER 
ERROR 73 Tee e. ( TART Ng aT 
: T. SINCE THE 
AD lel fe Rls ie 
Be ue 
s NOI CATED D iN THE EROR HES MESAGE) GOT 
apt rare ie nat 09 per ath IBA 
reese ry 
eae RAEI Wier EM 
BEQ TST35 ;;EXIT 


; acer gteeeeetere paneer tnreaaere genera eee 
ST CHECKS IF _RK11 INTERRUPTS TO ITS DESIGNATED VECTOR 


SPHORGE EF ALT fa LHL EONT DY Tr'hns BEEN 


j HCHANGED rite WIL IATERRUPT th *RKVEC’. NOTE "RKVEC’ 
speed soe oe oe rene nes cumtumamny 


tir3s: 
SET 360, DO CONTROL RESET 
- * THIS IS A CALL FOR THE 


- $RESET fs ari Is 
Taare 


nore TTRAT 
IS THE 


TST.SIN 


Soaxa saa: 
oF 
Sia 
ae 
Tie 
ae 
8 
2 
ae 


te Dat 


pee MOV 
1e746 0136 MOV #64$,-(SP) 
000002 


Be 
20000 


RTI 
64S: 
002526 MOV RKCS,R1 
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OZRKKC. P11 T3S CHECK THAT RK11 INTERRUPTS WHEN IDE IS SET 


4597 013638 013700 002576 Moy RKVEC RO :GET POINTER at RK VECTOR ADRES 
oe flee He Eis Yo GRS ET PEP 
i 105711 TSTB 3s ARI WAIT FOR CNTRL RDY TO SET 

deg piste? 400379 000100 ay #160, aR1 ISET IDE BIT IN RK 
4593 013662 104417 000005 WAT.INT ,5 sHaIT by INTERRUPT, » ATRERST 
4334 11/45 

95 013666 011137 001162 MOV aR1, SREGO 
436 013672 104074 ERROR 74 i 1a it NOT ene T WHEN IDE 
4597 ITH CNTRLE RDY SET & GO 
wEGg Bee Seeeoe 1$ arp Bo (SP)+ INT CORRECTLY TO 
ue ol ° ‘ Tas, RESTORE. STACK K_POIN ER 
4603 013700 022626 / "Op (SP)+, (SP)+ fearon ite a TBOINTER 
4605 013702 012777 013716 166666 MOV #2$, IRKVEC tIF THERE IS PAULTY POLLING OR INTERUPT 
4605 ; LOGIC SECOND INTERRUPT MIGHT OCCUR 
4607 013710 104417 000005 WAT.INT ,5 SWAIT FOR INTERRUPT, IF ‘ANY 
4608 *DUE TO FAULTY LOGI¢ 
ae 10 013714 000403 ~«C BR 38 
4612 013716 022626 2s: CMP (SP)+, (SP)+ RESTORE STACK PTR (FROM RK1I INTRUPT) 
4613 Ol 2626 CMP (SP)+; (SP)+ RESTORE STACK PTR (FROM WAT. INT 
4614 Ol 104020 ERROR 20 Pa RK11 INTERRUPT 
4615 SHOULD HAVE BEEN 
416 ; hier ony _ INTERRUPT 19 is ABOVE) 
4617 013724 012777 OO4270 166644 3S: MOV #BADINT, IRKVEC ine TORE VECTOR ADRES FOR 
4618 UNEXPECTED RK11 INTERRUPT, 
4619 013732 012746 000340 MOV #340, -(SP) 
4620 013736 012745 013744 MOV #65$,-(SP) 
4621 013742 O0000e RTI 

013744 65S: 


4622 
4623 
4624 
4625 
4eee 
4631 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
464 

464, 


1 aga og ee a Tp 
:ATEST ” T WITH aN ser RLPT EROR EROM AKL O¢ Al urs Arter & COMPLETION OF 


eTMIS. TEST SHE THAT AN TH 


py FIRST INTERRURT, og ial a G60 BN 


STHTS test also” CHECKS, A PART THe POLLING LOGIC. 
jpepeesieniaarntiastinenaaiatineneneestsnannetiioeensaaianen 


013744 oo0004 +4136: SCOPE 
13746 012737 O0000S 001206 MOV #5, STIMES 51 RATT 
13754 104412 CNT. RESET fy ca 
tuts I ts. aR an *CNTRL 


Pee a a 


m PC IN ERROR fi MES 
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4643 
dpud 
45 
4646 
4647 
464 
464 
4650 
4651 
46S2 
ees 
ees 
Hee? 
4658 
4659 
4661 


014114 


01 
014142 
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T36 CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF SEEK 


;PC WHERE Be Peel. R ie it 
RR 


idedtnd od Back FO Hes 


013700 002526 MOV RKCS, RO 
013777 002544 166544 MOV DRIVAD KDA zORES THE OR ORI 
004737 O21i16 JSR C,DRESET 
1 ERROR 26 Rays 80 RDY y BINT a ber AFTER DOING 
013701 002576 2s: MOV RKVEC,R1 
12721 014046 MOV #3$. (R1)+ ;SET UP VECTOR ADRES FOR RK11 INTERUPT 
O1 ou MOV #340, (R1) ;SET UP PSW ON INTERRUPT 
40 166514 BIS #40, JRKDA YL #1 
12710 000111 MOV #111, aR0 SEEK, GO WITH “nf SET 
104417 000300 WAT.INT , 300 WA T FOR THE DRIVE TO 
sIN ERRUPT AFTER MBres WAS RECVD 


WAITING TIME= 1.4 MS FOR 11720 
$280 US FOR 11745 
Pig IF INTERUPT DID NOT OCCUR 


012777 004270 - 166540 MOV #BADINT, ORKVEC ;RESTORE UNEXPECTED RK11 INTERRUPT 
O11 001162 MOV RO, SREGOD GET RKC 
104 ERROR INTERRUPT DID NOT OCCUR AFTER 
*SEEK WAS INITIATED WITH IDE SET 
ooo402 BR 3$+4 
022626 3S: CMP (SP)+, (SP)+ 0K, IF RK11 INTERRUPTED TO THIS 
RESTORE STACK POINTER (FROM RK11 INTERRUPT) 
022626 CMP (SP)+, (SP)+ ERESTORE STACK POINTER (FROM 
012777 O14116 166516 MOV #5$, IRKVEC :SET UP NEW VECTOR ADRES FOR RK11 
032710 o20000 BIT #20000, JRO 1S SCP CLEAR - 
001403 BEQ 4g HES, 8 
011037 o0116e2 MOV JRO, SREGO 
104076 ERROR 76 stp SET “BEFORE. SEEK TO LAST 
104417 056700 4§; WAT.INT ,56700 att FOR DRIVE 19 INTERRUPT 
Het TING Tné= 180 MS FOR 11/20 
012777 004270 166470 MOV 8BADINT, JRKVEC fae Ai ERROR IF IF By. THIS tReneg 
004737 020414 JSR PC, GT3RG ; -GO Wer SRD 
104077 ERROR 77 sRKI1 p16 NOT Tike AFTER SEEK (TO 
sae LAST CYLINDER) WAS DONE WITH IDE SET 
000401 BR 5$+2 
022626 cS: CMP (SP)+, (SP)+ 30 of RK11 INTERUPTED 19 THIS AFTER 
_ STACK POINTER (FROM RK11 INTERRUPT) 
022626 CMP (SP)+, (SP)+ ifs TORE ST POINTER (FROM 
012777 004270 166446 MOV #BADINT,SRKVEC RESTORE RK11 INTERRUPT VECTOR ADRES 
*FOR UNEXPECTED INTERUTS 
932719 020000 BIT #20000, JRO ;DID SCP BIT SET? 
btnerg 001162 MOV JRO, SREGO 'GET’R KCS 
104053 ERROR 53 :SCP DID NOT SET AFTER RK11 INTERRUPTED 


; INDICATING SEEK WAS DONE 


meee ee oo 


MAINDEC=11-D2RKK=C 
OZRKKC.P11 136 


4699 


4701 


014274 


Bais? adeses 


oooc04 
104412 


104420 


ew eee ee 
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CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF SEEK 


;GET RKDS 
CORRELY 1 TTS 1h RAOS? 


‘PUSH ORV_ADRES ON THE STACK 
:G0, SHIFT RIGHT ~~ 


166300 
166260 


001162 


16-SEP-76 16:00 


6$: 


7$: 


64S: 


Bic N77 
Bis RL Ort BRIvED 


MOV tet 


JSR PC. SHFTRT 

MOV (SP)+, $REGO GET EXPCTD ORV 

MOV R1,-(SP) . +PUSH 1p mo ON THE STACK 

JSR PC’ SHFTRT GO SHIFT THEM RIGHT 

NOV (SP)+, SREGL :POP yt RECVD Me BITS | 
i Rkoe ob eB EK Ric Bone (INTRUPT 
*MODE). *EXPCT’ INDICA E 
: T SHOULD HAVE BE 


MOV #340, -(SP) 
MOV #64S; -(SP) 


RTI 

CNT. RESET BAe SON CONTROL RESET 

MOV DRIVAD ee ADR 

BIT #160000, aR :DID eNTRE RESET CLEAR DRIVE ID BITS? 
BEQ 8$ :YES, BRANCH 

MOV ARKDS , SREGO ;GET_RKDS 

ERROR 50 ;CONTROL RESET DIDN’T CLEAR THE 


;ORIVE ID BITS (13-15) IN RKDS 


CMP #200, JRO sas oP p BIT CLEARED BY CNTRL RESET? 
BEQ =‘ TST3? : 

MOV JRO, SREGO sire Saxe cs 

ERROR 100’ *CNTRL RESET DID NOT CLEAR SCP BIT 


iTeet a7 CHECK THAT WITH IDE SET RL] INTERRUPTS WHEN READ 


t STEST 


HAT WITH i SET 
;*#THIS TES CHECKS THAT WHEN A DAT RA 
5 #WITH IDE BIT SET, RK11_INTE 
T IN THIS TEST IS RE 


ERRUPTS WHEN READ IS DONE 
SFER FUNCTION IS DONE 


RRUPTS WHEN THE FUNCTION IS COMPLETED 


ON 
Me riiTtrreiiiertierretiititttrr tr itty 
CNT. RESET DO CONTROL RESET 


+8137: 


Tats” TS A CALL FOR THE *CNTRL- 
INE. A CONTROL 
TER A ae TI 


TST.SIN 


T IS 


: GO BACK TO TEST 1 
‘CHECK IF SIN IS SET IF! SET 
:DO DRIVE RESET T0 CLEAR IT 


SEP-76 16:00 PAG 


TOROS -OZRKK S MACY11_27(732) 16- set 

DZRKKC.P11 T3” CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE 
4755 
4756 3700 RKCS, RO 


£ece 

oa 

-_ 

x 

€ 

-_ 

Oo000 

—>— bo 

Ses 
=32== 

3 

<<< 

2omww 

DAA 

| me) 

> 

omy 

za 

a 


4760 014316 052701 000013 BIS #13,R1 SET BITS FOR SEC 13 
WoL O1usee Oi 777 177600 166200 MOV . #-200 ORKWC READ 200 (OCTAL WORDS) 
4 14 10112 MOV Rl, aRe “FROM THIS DISK ADRES (CYL 0, SEC 13) 
4763 014332 012714 032724 ; MOV wOUTRUF aR4 INTO THIS BUS ADRES 
4764 014336 013705 002576 MOV RKV 
4765 014342 le7es 014400 . MOV #15 the} ;SET UP VECTOR ADRES FOR RK11 TO INTRUPT 
4766 014346 012715 000340 MOV #340, (RS) SET PSW ON INTERUPT 
4767 014352 012710 000105 MOV #105; dRO "READ, GO, IDE SE 
4768 014356 104417 127710 WAT.INT , 127710 ‘WAIT FOR RK11 TO INTERRUPT ON 
4769 . COMPLETION OF READ 
4770 *WAITING TIME= 337 MS FOR 11720 
4771 - * 67 MS FOR 11/45 
4772 014262 012777 OO04270 166206 MOV #BADINT,ARKVEC RESTORE UNEXPCTED INTERRUPT VECTOR ADRES 
4773 014370 011037 O01i62 MOV JRO, SREGO sGET KCS 
4774 014374 104101 ERROR 101 1 DID NOT INTERRUPT AFTER READ 
4775 has DONE, IDE BIT SET. 
4776 014376 OO00404 BR 1$+10 
4777 O14400 Oe2b26 1S: CMP (SP)+, (SP)+ OK, IF RK11 INTERRUPTED TO THIS 
4778 ‘ SRESTORE STACK POINTER (FROM RK11 INTERRUPT) 
4779 O14402 022626 CMP (SP)+, (SP)+ "RESTORE STACK POINTER (FROM WAT. INT 
4780 O14404 012777 OO4270 166164 MOV 8BADINT, ARKVEC SRESTORE UNEP ECTED RK11 INTERRUPT 
W782 014412 004737 620754 ISR PC, CHKER sSHECK IF 56a ANY BIT IN RKER IS SET, 
4784 O14416 104036 ERROR 236 3 RK ER SET BN DOING READ, FROM SEC 0, 
4785 3 CYL 13 IN INTERRUPT 
4786 014420 062701 ‘000005 4g; ADD #5,R1 *RKDA SHOULD HAVE TNCREERITED TO THIS 
4787 O14424 Oe0lle2 CMP Rl, are "DID RKDA_ INCREMENT CORRECTLY? 
4788 O14426 OO140S BEQ 2g’ YES BRANCH 
4789 014430 010137 001162 MOV R1, SREGO GET EXPCTD RTDA 
4790 014434 011237 001164 MOV aR, SREGL ‘GET _RKDA RECVD 
173 o1444o 104040 ERROR 40 sBKD8 INCRERENTED WRONG ON DOING 
1733 014442 004737 020730 23: JSR PC, CHKWC sGHECK THAT RKWC’ OVERFLOWED TO 0, 
4795 O14446 104041 ERROR 41 *RKWC DIDN’T OURFLO AFTER 
4738 "A READ OF 200 WORDS 
4798 O144S0 3S: 
4799. 014450 012746 000340 MOV ° #340,-(SP) 
4800 O14454 012746 O14462 MOV #64S, -(5?) 
4801 O14460 O0000e2 RTI 
yB02 014462 64S: 
4803 O14462 022714 033324 CMP #OUTBUF+00,3R4 ;DID_RKBA INCREMENT CORRECTLY? 
4804 O14466 OO14 BEQ TST4O EXIT 
4805 014470 033324 001162 MOV BOUTBUF +400, SREGH’ . Get EXPCT RK 

06 014476 Oh 1432 001164 MOV JR4, SREGL Gb? rks CVD 
4g07 O14S02 104042 ERROR 42 aot net INCREMENT CORRECTLY 
4808 ee : AFTER A READ OF 200 WORDS 


4809 oe 
4810 jp RERRRRRREL RAE RRES RELL ARLE RE EERE RRR L AREER RE EERE RAL E ERE EERE 


ol na ea MACY11_27(732) 16-SEP-76 16:00 PAGE 92 
DZRKKC T4O CHECK THAT RK11 INTERRUPTS AT BRS ONLY 


481 s*TEST 4 A CHECK THAT RK LL INTERRUPTS At 68S 0 
a3 eINEatbP ts BeoKS EYE Bithek THA ERS a "ni 1B Thorth Hb. 
ugis + TERROR 08 SEF ecateo” RRP OR FOR err oR BON t NN PRRUPT 
48165 *#LEVEL IS CHANGED FROM BRS, THEN CONTENTS OF RKPRI WILL 
4817 j BHAVE TO BE CHANGED ACCORDINGLY AND STILL TEXT WILL 
481 K FOR THIS BR LEVEL 
481 jeueeend ceatheeeaetaatansantantiaeaneanennenneaneanenneaneaneay 
4820 014504 o00004 +éT40: SCOPE 
4821 014506 104412 CNT. RESET 360 D0 CONTROL RESET 
4goa ts IS A CALL FO oAlit ofhTR 
Wess | sRESET BND ArtERe R a CERTAIN TIM 
ugoe : TP TRE CCNTRL ROY’ Boes ee 
4826 out AN ERROR 18 REPORTED. N 
ues To i eRe Er oRee Scare 
1829 : irs SA VERY BR es if i FP. 
4831 O14510 104420 TST.SIN CHECK IF SIN 1s. ge see 
4832 DO DRIVE RESET T AR 
4833 014512 012737 O14546 001110 MOV #1$, SLPERR $367 fe TURN AORES FOR LUPING 
4835 914520 013700 002526 MOV RKCS_RO 
4836 914524 013 002544 166002 MOV DRIVAD, JRKOR 
4837 014532 012701 000007 MOV ;PRIORITY LEVEL 7 
4838 O14536 Ole702 000340 MOV wean *BR LEVEL 7 FOR PSW 
4839 014542 013703 002574 MOV Rcpat R32 *NOTE, IF RK11 INTERRUPT LEVEL IS 
4840 *CHANGED FROM S TO ANY OTHER LEVEL 
4841 *THEN CHANGE CONTENTS OF *RKPRI’ 
ypye ACCORDINGLY 
4843 O14S46 013704 002576 1S: MOV RKVEC RY 
ye4y b1Nbbe Olere4 014660 MOV #3$, (RY)+ ;SET UP ADRES FOR RK11 TO INTERUPT 
4845 O14556 012714 000340 - MOV #340, (R4) SET UP PSW ON INTERUPT 
4B4 014562 O102% ee MOV R2,-(SP) ;SET PROCESSOR PRIORITY LEVEL AS 
yay? O1¥b4 012746 014572 MOV as, -(SP) 
4ays 014570 O00002 RTI 
4g49 014572 4S: s INDICATED BY Re 
4850 014572 012710 000100 MOV #100, 2RO :SET THE IDE BIT 

4851 014576 012705 177760 MOV #-20,R5 *WAIT FOR THE RK11 INTERRUPT 
yeS2 014602 INC ‘WAITING TIMe=78 US FOR 11/20 
4853 014604 001376 BNE 2 713 US FOR 11/45 
4es4 Ot 020203 CMP R2,R3 sWAS THE CPU PRIORITY LEVEL LESS THAN 
yess 014610 003005 BGT 2g >THE RK11 LEVEL? IF RKII 

:SHOULD HAVE INTERRUPTED. ERROR, 

4857 IF IT DID NOT 
4g58 OiNble 010137 001162 _ «MOV.  -RI,SREGO -GET CPU BR LEVEL 
4859 014616 011037 001164 MOV JRO, SREG1 *GET RKCS 
4860 O14622 104103 . ERROR 103 * THOUGH CPU LEVEL WAS LESS THAN 
4861 >THE RK1i LEVEL (5S), RK11 DID NOT 

4g “ j INTERRUPT 
y 014624 005010 2s: CLR aRO sCLEBR R RKCS 
464 014626 O62702 177740 ADD #-40,R2 sDECRE RSE THE PRIORITY LEVEL (FOR 
4866 014632 005301 DEC Rl *CPU WILL B AT THIS LEVEL 


_—— = 








DIRKKC 









MAINOEC- i tee 


46 
014672 
14674 
14700 
014704 


014706 


014714 


O14716 
0147ee 


MACY11_27(732) 
CHECK THAT 


001344 
012777 
0127% 
12746 
dade 
o00414 
g2 
Sia 


020203 
003754 


004270 165722 


000340 
014656 


O04e70 165706 


010137 
011037 
104104 


000746 


oooon4 
1044le 

104420 

013701 o02544 
052701 014533 
012777 177377 - 165574 
012777 632724 165570 
010177 165566 
012777 0000S 165SS2 
oosoo2 


Kll 


RT 


64$: 


3$: 


H SETEST 41, SHRMLATE,& CHECK *OVR" ERROR |" SO 
TEST 


RRUPTS AF 


SIMULATE & CHECK *OVR’ E 
;*#THIS TEST SIMULATES OVERRUN ol OR AND CHECKS IF ne OVR 
;#B1T IN exe wae? SET. THEN IT IS CLEARED USING CNTRL RESET 
;#8 CHECKED T QVR CONDITION IS SIMULATED 


T IT WAS CLEARED. 
s*BY TRYING 10" Ao SOTA) WORDS FROM LAS 
ysasssobaseaesstensonstehesnsonssnsieenessnssanssnnaneansantons 


tity): 


O PAGE 93 
RS ONLY 


18 


#BADINT, ARKVEC 


#340, -(SP) 
#64$) -(5P) 


TST41 
(SP)+, (SP)+ 


BADINT, IRKVEC 


es 


"LAST SECTOR ( 
COPE 

aay RESET 
TST.SIN 

MOV DRIVAD, RI 
BIS #14533;R1 
MOV - 8-401, RK 
MOV #OUTBUF SAKA 
MOY Ri, JRKDA 
MOV #5, ORKCS 
CLR Re 













sLUP BAK & CHK FOR THIS BR LEVEL. , 
es WITH CHKING FOR ALL LEVELS. 
ORE LINEXPECTED RKTT INTERRUPT 







;;EXIT, TO NXT TST 


;RESTORE STACK POINTER 
sre TO UNEXPECTED RK11 INTERRUPT 


OR 
SIF THIS INTERRUPT OCCURED WHEN 
scr LEVEL WAS LESS THAN 












DARE RS 






;GET RKCS 

rely 1 INTERRUPTED WHEN THE CPU 

iLEVE L_(AS POINTED BY R1) WAS 
HIGHER OR SAME AS THE RK11 

LEVEL (5) 

;GO BACK & CHK THE NXT LEVEL 



















CYLINDER(312), 








360, DO CONTROL RESET 
THIS IS A aL FOR THE *CNTRL- 
RESET: ROUTINE. A CONTROL 







T.RESET’ IS LOCATED. 

VERY ai¢ ERRS IF IT 
K TO TEST 10 

I To oF 

T’TO CLR IT 


SE 
VE 
TC 1 ae (312), 


FER 
;FRO » LAST CYL, 


+~+AzO 
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DZRKKC.P11 TH! SIMULATE 8 CHECK "OVR’ ERR : : 
aisies 165544 1$: : BeKcs we CNTR ROY SET? 
14764 Ape349 é NO, WAIT Foe IT 
O14766 , 1 ‘IF WAITED LONG, REPORT ERROR MESSAGE BECAUSE 


: D HAVE SET HE CAUSING 
:CNTRL ROY TO SET BY NOW 
001166 DRKWC, SREG2 


PC, GTORG G0, GET RKC ER 
2. :CNTRL ROY DID NOT SET AFTER DOING 
AN OVR ULD HAVE OCCURED 
TTING CNTRL ROY (HE BECAUSE OF 


g BS 


165512 3." * adalat 


| PC, GT2RG 
001186 MOV #0000, SREGE 


Be 
=r 
23 


165470 : MP S14OEO", ORKCS 


PC, GT2RG 
106 


CNT.RESET 


bay 
e 


O000 20000 


a 3 
PA TOPSARASS 
a3 


33 


JSR PC, CHKECLR 
ERROR 102 

S$: JSR PC, CHKCCLR 
ERROR 102 


6S: JSR PC ,ORESET 
ERROR 26 


fate: 


"3 oO 


+7 OD o& 
on 


OOoOWOoOO 


BmeES 


° 
J 
7 
s 
e 
, 
. 
a 
. 
, 
. 
, 
. 
, 
* 
, 
7 
i] 
° 
, 
a 
’ 
. 
a 
. 
, 
e 
’ 
° 
i] 
. 
, 
e 
. 
. 
, 
. 
, 
. 
] 
o 
J 
° 
i] 
° 
7 
© 
’ 
6 
i] 
© 
® 
. 
J 
° 


2a~* 


W/ SET 
THE ABOVE DRIVE RESET 


55 Gea aR go hg a A HE HE bE a EH A a REE REE 
;#TEST 42 2 mu & CHECK OR 

;#THIS TEST SIMULATES *PRO ING ERROR’ 8 CHEEKS IF IT IS 
s wOG TECTED BY PGE BIT IN RKER. THEN A CNTRL RESET IS DONE & 
3% ie C rneD if re eS WAS CLE IT IS ALSO CHECKED IF 
pi # We LEARING OF PGE BIT SETS & CLEARS HE, ERR 


# . . 
He TITIITITtiiiiitiiliitiliLL 


téT4¥2: SCOPE 
CNT. RESET :G0, DO CONTROL RESET 
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Dz T42 SIMULATE & CHECK PGE ERROR 


FOR T Ron 
ay wet Ain Tih ET 1S 
eRTaIN 

RREPORTED. ROTE THAT 


“ENT nneaet LScateD. 
M BY Foote. wit IF IT 


TST. SIN ECK IF SIN eet se, IF 


. MOV RKER RI 
165422 MOV IVAD, JRKDA 


165406 #2011, dRKCS 


ewevwoe J . 
ore 
C0) 

mo 
-— o> 


/ 11-20 
ITH BIPOLAR) 


B-Z22 
3S 


4<O 
xm 


#4000, dR1 


1 
#4000, SREG2 
PC, GTeRG 


MZr-w 
R 


aoe 
Em 


mise 
: 
3 
= 


De-O 
2 
- 


142210 : CMP #142210, aRKCS 


o2042e2 ' BC GT2RG 
106 


CNT.RESET 


eecwe 
re~< 


>3 


P= b-+ 6 ~6 +h = 26 = b-bd p> 
23 


SESsssusss 


nae 
hee WOONMUI£CWMHO 
3 
w= 


8 


aye 


“Bp"'Z 


o15164 JSR PC, CHKECLR 
015170 ao ERROR 102 
015172 004737 wae : JSR PC, CHKCCLR | 


015176 ; ERROR 102 _ SALE 
CLEARED BY CTRL RESET 


$ ia aresenioenesamanncaiaataliieintasbaaiiiegiteindiaiiimanmsanil 


"god 


chr 


SUNN 


aE 
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DZRKKC.P T43 SIMUL ATE & CHECK NXM ERROR 

S035 ;¥TEST 43 & CHECK 

7 UUBAE HEED fan Ul LAE ID 


+E CPOR DIAGNOST PRED RET ANS THIS). IT IS AL 


506 sHIE HE 5 ERR el Ts ALSO ALL 3°BITS CAN crecHED 


So4e Tree eT te tee een 
Bite 15200 900004 +éT43: SCOPE 
soy 15202 104412 CNT. RESET DO _CONTROL 


ts IS A CALL FoR 


ie ae nk " 


= 
a de East Hal 


sTHIS Fe Fie IF IT 
epea 015204 104420 TST.SIN G0 ean eal iF Sin’ 
S055 , aap . IF SET DO DRIVE RESET "0 CLR IT 
apes ptesoe B13700 002526 MOV RKCS, RO 
S058 015214 012777 177777 165306 MOV 8-1. ORKWC sWRITE CHECK 1 1 WORD 
5059 Ol 12777 160000 1653 MOV #160000 JRKBA THIS Sea 
5060 0152 13777 002544 165276 MOV DRIVAD, ARKDA snITH HIS DISK ADRES (CYL O, SEC 9) 
506i 015236 012710 000067 MOV #67, RO “WRT CHK Nex BIT SET 
Svbe bibete 105777 165260 1S: ISTe gRKeS :DID CNTRL Coby T AS “s SpesuLt OF HE? 
5064 015250 o0S202 I &S SWAT ? 
SO6S bi5¢5¢ 001373 BNE 1$ IF NOT LUP BAK & WAIT 
ce Glee Eire; TEES coe =| AY pS SRece | me 
ete, piesee SAAT TS ERROR 113” ZCNTRL ROY DID NOT SET ON DOING 
5069 36 WRT WITH A NXM LOCATION. 
et ace" 
£072 015270 : 002000 165226 2S: BIT #2000, JRKER sit NXM BIT IN! RKER SET? 
5075 i Oia? B5o080 001166 MOV 42000, SREG2 166 be TRY De T SET IN RKER 
076 pests 104105 ERROR 105 ° init BET 1D NOT set YH ER ON 
5078 15314 2710 140266 3S: CHP #140266 , RO $010 5 RR BIT SET? 
2ba8 015322 004737 o204e2 ISR PC, GT2RG 7" "360, GET RKCS, RKER 
1 015326 104106 ERROR 106 sHE OR ERR BIT : D Not SET WHEN 
earn a SA 
5084 015330 104412 4S: CNT. RESET :GO 09 CONTROL RESET 
508s :THIS IS A CALL FOR THE ’CNTRL- 
5086 *RESET’ TIN . A CONTROL RESET Is 
5087 ; ISSUED R A CERTAIN TIME 
S088 IF THE "CNTRL ROY’ DOES NOT al 
089 “AN E IS REPORTED. NOTE THAT 
5090 *THE PC IN ERROR MES IS T 
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OZRKKC.P11 T43 SIMULATE & CHECK NXM ERROR 


5091 _ oe RESET’ IS LOCATED. 
IF IT 


015332 ISR PC, CHKECLR ar és; 
015336 ERROR 102 : Sel NOT eee 
: IT nd if 
015340 cs: JSR PC, CHKCCLR “CHECK IF ’HE’ & ’ERR’ BITS GOT CLEARED ' 
*BY -CON. T RETURN HERE. 
015344 hay: ERROR 102 : era 
015346 . 6S: ISR PC, TSTRWS F R/W/ 
| AiP rods ¥ tf 1s ser 
o1s3s2 if ERROR 16 R /W/S ey ig NOT SET 
s3 HEEKERERAEREEEREKRLERELREA KLEE SE EL EE LSA RRA KEKE EFLL KE LES ELSE SHEE 
: &TEST 44 SIMULATE g K NXD ERROR 
s#THIS TEST SIMULATES NON-EXISTENT DISK ERROR & CHECKS IF 
: sat Is PE TECTED BY NXD BIT OF RKER. : IF ALL EIGHT ARE PRESENT 
THI IS ABORTED FOR SIMULATION CANNOT BE DONE. 


ser gensneonenitonenncenractetneet 
7 «RESET 


Seaeaeae 


Dt boo bs hs pe pe 


Sw NOU FU -OSBVRRE OHS 


RESET 
i atse + IS A CONCACE FOR THE 


dy Bex eae " 
ale head 


TST.SIN 
002526 
160000 
0277 165136 
000091 


165114 
160000 


000015 
000i 


165070 


O2d42e 
000200 001166 


= 
: 
: 
: 
: 
5 
2 
2 
2 
2 
2 
2 
2 
5 
5 
: 
: 
| 
: 
: 


b= bs Bb = Ot 2 Bb Bb he He ho + bt 2 Bs 0 Be eh Bo = Fe = 9 = Pe Pe pr 


FH EHH-SIVVRREEHEBSBVKRZOV 
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OZRKKC.P11 THY SIMULATE & CHECK NXD ERROR | 


ae Bs eebaaiod pine 

14 AIN 
5 ——_HRRCRCTRRE Toe Tuten. como conan 
o3s | | icc NECTED ON RK1IC IF A OR 
ag esc a aie" 

1 UNCTION TIATED ON THAT 
2122 ibelve tno Ronee seh BaF oucw 
2136 1 140214 3$: #140214, JRO D ae aor T He Sf NXD SET? 
218 DIB iss Bois ; uA a : OID H erst 
5160 615460 o20422 ISR PC, GTERG HE OR ERR BIT DID NOT SET 
Sig] O15464 roa 136 RROR 106 ;HHEN NXD WAS SI ATED 
5162 “CLEAR NXD, HE BITS 
5i63 o1S466 104412 4S: CNT. RESET 360 D0 CONTROL RESE 
ete stHis Is BUFTHE. B CONTROC RESET IS 
5165 > ISSUED AM A CERTAIN TIME 
5167 : IF THe "CNTRL RDY’ DOES NO 
288 yee na, can RESSAGE 1S THe 

170 :PC ’CNT.RESET’ IS LOCATED 
aT Ae A VERY BASIC ERRS IF IT 
5172 “OCCURS GO BACK TO TEST 10 
2173 015470 737 020770 JSR PC, CHKECLR CHECK IF "xD! BIT WAS CLEARED BY 
i744; :CON.RESET. IF NOT, RETURN HERE 
2175 015474 104102 ERROR 102 sCNT RESET oid NOT CLEAR 
2178 01547 004737 O21014 S$: JSR PC, CHKCCLR :CHECK IF ’HE’ & ERR’ BITS WERE CLEARED 
5178 *BY CON.RESET. IF NOT 
5179 o1ssoe 104102 ERROR 102 CNTRL RESE zt NOT cfEAe 
3180 ieee ERR BIT IN RKCS 

181 015504 004737 021050 ISR PC, TSTRWS HECK § 4 Halt gel Cater ROY. 
218 015510 104016 ERROR 16 $10 5 SHOULD Be act? FPS 
elec snot 
st sitter ue CIMLATE B CHECK NC ERROR 
5188 : ;#THIS et obieeTeD By. HE NON-EX ISTENT CY CYLINDER ERROR & CHECKS 
Be ale Reks HEE REGS HEY cle teed BF cSt 
eias OE, MCD ASE LLANE ALA LN er aE oe 
5193 015512 oo0004 tétus: 

194 O15514 01 og2seb MOV RK SRO 

195 015520 0127 o0ess 2S: MOV (SOUNT s ALLOW “ERROR 133" ONLY S TIMES 

19 13258 3 pe 14 40 ars ue, R T T BtTe FOR FOR oF 

c13e 1eese bisa? ised oollI0 AY e1¥540 iF, ist ET RETURN hak 2 

o1ss44 104412 38: CNT. RESET Z CONTROL Reset 

esp 90 D9, A CALL FOR THE ’CNTRL- 
5202 RESET’ ROUTINE. A CONTROL RESET IS 


ee ee ee oo“ 


MAINDEC-11-DZRKK-C MACY 
SIMUL 


OZRKKC.P11 


Seusnene 


RRRRRRRRG 
WONWUIL GIT 
=) 


x 


FUER Use sont oae Som URO EERE RNa RT INNS 


T4S 


0277 164752 
000011 


we ee ee 


164724 


22 
001166 


4S: 


6$: 


HO8 


16-SEP-76 16:00 PAGE 99 
K NXC ERROR 


JSR PC, TSTRWS 
MOV R2, IRKDA 
MOV il, aR0 


ERROR 21 


INC COUNT 
a0 Re 
BIT #17740, Re 
3$ 
2 #140000, aRO 
5 PC, GT2RG 
ERROR 106 


CNT.RESET 


; ISSUED AND AFTER A CERTAIN TIME 


i: ace ie 


sCHECK TE SIN $ Set) IF SET 
bebe Wife ind cSt daa 

5 Check F CONTROL RDY T 
eae 
eTTING ENTRL ROY But BUT CNTRL RC ROY 


aire ER 


DID NOT SET WHEN SEEK 
TO CYLINDER AS INDICATED 


& WAIT FOR R/W/S RDY, 
SKIP ERROR 


es 


ZRSRSSRe RO 
o- _—- 


ae te 
x 
5 


wees ee ee ee wee ee eeee ee we 


ZO 


bo gl L_NXC’S? 
:IF NOT, BAK & CHK THE NXT NXC 


DID HE_& ERR BIT SET WHEN NXC BIT SET? 
CEP area “e 

tHE OR RKEBA ETT DID NOT SET IN RKCS 

WHEN NX ERROR WAS SIMULATED 


: aert Routt or TIS 
s ISSUED BNO AFTER 0 CERTAIN TIME 
74 E 18 NOT THe T 
Pee eRe en mR ECE? MESSAGE I ATE 
:THIS IS A VERY rye 400s H 


108 
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OZRKKC.P11 T4S SIMULATE & CHECK NXC ERROR 


EMS Fags 10 gE BP 
015672 004737 020770 JSR. PC, CHKECLR peter. ’ xc’ BIT WBS LEARED BY 
015676 104102 ERROR: 102 ‘cra R SET a Nore CLEAR 
015700 032710 140000 7$: «BIT #140000, 280 Mt & ERR Bits GET CLEARED? 
15704 * BE TST46 santS EAL! 
iene Blige SRLS mY Seated, «BT ARE 
15716 To41a2 ERROR sCNTRL Gece p : NOT CLEAR 
: ERR BIT IN RKCS 
3 BEST Ne SIMULATE & CHECK MKS ERROR 
: sATHIS IMULATES ISTENT SECTOR ERROR & CHECKS THAT 
:#1T DETECTED. BY NXS BIT OF RKER. IT IS CHECKED THAT 
:#WHEN NX BERR OF RKER ALSO SETS, AND ALL THREE 
*#CAN BE CL Y CONT 
—sunaatCet Se CLEARED, BY CONTROL ReSeTO CS” UU BY UAE 
13959 rare tBr46: CNT. RESET RESET 
iets ts a cece A CALL FOR THE ’CNTRL 


SET’ ROUT SET IS 


Cre 
INE Foed" ERLTERG fh 
THIS 18.8 A VERY VERY BESIC GRRE. ce IT 


Biersa O13777 poseas 164575 OV: OREVAD, BRKDA GET ADRES, OF DRIVE 
015736 oE777 p08. 164570 BIS a4, DA 1 BITS FOR SECTOR 12 (DECIMAL) 
015752 16777 164 HOV WOUTBUF , @RKBA jINTO HIS BUS | ADRES sa 
p1e5e rte — CNT.RDY ° This 18 & BOR EN ROY? 

: ROU WHICH WAITS FOR CNT 


NOT 10 se T Sil tHiN aah rate 
(176 MS FOR 11-45 WITH BIPOLAR) 


;NXS pion 1g, oe CUR NOW 


PBS sae 
= of REG 
Ss Bees 


001166 
Ser ON 


Fee eee se eee 


1S: 


3 
os 


gb ee 
G22 8S ouxss 
BE: 
saa 
= 
ze. 
z 
: 


pi a wded 
Ele aa70 BOT iea SAKeR Shecl iGET ¢ 3 
E314 016036 104107 17 SONLY *NXS’ SHOULD BE SET 


MAINDEC-11-DZRKK-C MACY] 
OZRKKC.P11 


SERRE ROOM RONSS cantons Som URnaaR ARO RCS 


eens & 


WO OO ou 


T46 SIMUL 


012701 032724 


ome ee 


16-SEP-76 16:00 PAGE 101 


= 
CK NXS ERROR 


sIN ad motes RKER SIT 
NOTE ’NXS’ WAS 


es: | #140204, dRO Died "Pb ERR BITS SET? 
BEO $ 


ERROR rt ala e ee an "DD NOT SET WHEN 
ic PEAR NXS, HE, ERR BITS 


po C 
:THIS IS A CALL FOR THE ’CNTRL- 
RESET? ROUTINE. A CONTROL RESET IS 


3$: CNT. RESET 


OR ME 
This 5 8 VERY BRS : IF 
OCCURS GO SReK 0 is 10 
ISR PC, CHKECLR CHECK IF "XS IT WAS ACEARED BY 
*CON.RESET. IF Te RETUEN 


ERROR 102 Ne RESET D T CLEAR 
sNXS BIT IN RK 
4S: JSR PC, CHKCCLR ;CHECL IF tt fe aol Bree 
ERROR 102 ice 115 Ent ay 
; Oe aaa oy Sa neem mmemrnaies 
_ RTE SIMULATE & CHECK WCE 


WaTH viento 
HROEREY Gn Blchatti Urata ta naeey 
Meni edP Hannah Pade NR Mt Tey OS 


I 
erenre it DRObeING, 8,817 FROM ONE OF THE WORDS IN THE RENORY, SLEE 


téTy7: rar is, - 
Tits Tse OAL FoR Toe cen 
Pesce ere 
7 eae ac 
meen eee Se 
ad He - sBUFEER Oe 5 pROS STARTING 


sPTRST HOR WORD 177400 
; SECOND 177001 
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OZRKKC.P 11 TY? SIMULATE & CHECK WCE 














177401 1S: AyD a77401 R3 
zi INC fae | RL)+ WORD RATES ALL 256 WORDS? 
Oost NE if iH at at BAK & “Aug oh 
012737 170007 032742 MOV #170007, aura ryt E B SIMULATED BY DROPPING A 
i hoe WORD WHICH IS 
012777 177400 164362 MOV #-400, IRK 
012777 032724 164356 MOV SOUTBOP SRKBA Lamy af were RRS us ADRES 
013777 002544 164352 MOV DRIVAD,YRKDA § ;WITH THIS DISK ADRES, SEC 0, CYL O 
912710 000007 MOV #7,aR0. :WRT CHK, GO 
104411 CHKCRDY E ONTROL RDY T 
iP en HE EROR Dt sdace” 
104065 ERROR 65 :CNTRL "RB BID NOT SET 
AFTER WRT CHK 
032777 O00001 164324 35: BIT fl, ORKER *DID WCE BIT SET? 
os 22 ea pe, GTERG T_RKCS, RKER 
p05935 ary 001166 MOV a, rece ets Bir (WCE) at NOT SET 
104105 ERROR WCE DID NOT SET ON SIMULATING 
sce DANO TTT ORE 
022710 100206 ug: CMP #100206, aRO 1S RKCS CORRECT? 
14 BEQ 5 YES, BRANCH 
o20422 ISR PC, GTERG G0, GET RKCS 
104106 ERROR 106 *HE OR ERR St Bt NOT SET WHEN 
iWCE WAS SIMULAT 
: ‘ T ;CNTRL RESE 
004737 020770 ISR PC,CHKECLR - *WAS "WCE’ BIT CLEARED? 
: If NOT RETURN HERE. 
104102 ERROR 102 *CNTRL RESET DID NOT CLEAR 
re WCE BIT IN RKER 
004737 021014 6S: JSR’ PC, CHKCCLR ; CHECK F ’ERR’ BIT WAS CLEARED. IF 
?NO TFN HERE. 








104102 ERROR 102 NTR RESET DID NOT CLEAR 





Lr eee rita erin nite ier 






HST Dag er fa ie tae ar Tee ft fe 
BOS Me tired ache 





EISTOP AT THE END, OF THE CUR ENT Tg TOR IF IOe GIT Ts CLEAR. 
Ekta any geet Nae 
ia Ock ON CYLINOER 0, 6, SROULD. BE. DONE PRIOR 


#70 THIS TEST. A TWO * see OR "WAT CHK? WILL BE DONE, 
jHCONTROL ACT ACTION SHOULD STOP BF TER THE FIRST SECTOR DURING 
* ¥WHICH ERROR IS SIMULATE 
Cy rere pe gsepammpmare re 
oo0co4 +éts0: SCOPE 
10441e2 CNT. RESET 360, 09 
Hts IS *CNTRL- -_ 


sRESET’ isa ca F A Fae THe" RESET IS 
ISSUED AND AFTER A CERTAIN TINE 
;IF THE "CNTRL ROY’ DOES NOT SET 
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PAGE 103 
CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 
AN ERROR IS REPORTED. NOTE THAT 


Cae a Sh 


‘THIS IS A pal ae 


104420 TST.SIN ‘ae iF sit 15. Ts Set, HE eR IT 
13737 175007 O3e74e NOV #170007, OUTBUF +16 ri" fhe iB a TiHTOH 18 AETURLLY 


iT 74007). NOTE THAT 2 
;BUFFER IS CREATED i THe PREVIOUS TEST. 


013701 002544 MOV DRIVAD,RI 
012777 177000 164226 MOV #-1000, JRKWC ;WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 
18777 032724 164222 MOV SOUTBUF,JRKBA FROM THI 
10177 164220 MOV R1, JRKDA ;WITH THIS DISK ADRES, SEC 0, CYL O 
012710 000407 V #407, JRO SSE 
CHKCRDY G0 check IF CONTROL RDY IS SET 

TF SO, SKIP THE EROR MESSA 
104065 ERROR 65 :CNTRL’ ROY bID NOT SET AFTER WRT 

; A SOFT ERROR (WCE) I 

*SECTOR O SHOULD HAVE STOPPED 

“ALL CONTROL ACTION 
022777 OO0001 164172 2S: CMP #1, ORKER : CHECK K ONLY "WCE? BIT SHOULD 
001407 BEQ 35 YES, BRANCH 
012737 000001 001162 MOV 1, $REGO :GET’ EXPCTD RKER 
017737 164156 001164 MOV SRE, SREG1 GET RKER REC 
104107 ERROR ONLY BIT "Wce* OF RKER 

‘SHOULD BE SET (WCE WAS 

SSMU ATED ABOVE). ERROR 

IF IT’S NOT 
005201 3S: INC Rl CHECK THAT RKOA A INCREMENTED BY 
020177 164154 CMP R1, JRKDA :1 SECTOR ONL 

?CNTRL Ser TOn ‘ot STOP AFTER 

;SOFT ERROR IN SECTOR O 
001406 BEQ TSTSL YES, EXIT 
010137 001162 MOV 1, $REGO -GET EXPCTD RKDA 
17737 164142 OO1164 MOV anion, SREG1 GET RKDA ECV 
1040 ERROR *RK HAVE I TD 

: uaeceok ; ¥ 4 BIDN’ 

- ction 6 wat 


ee a ne airy 
a a T Sect ONLY 


3 preeT e] CHECK THAT RKIL INTERRUPTS ON SOFT ERROR WHEN Soe 
TEST S1 CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE 8 I 
ieTHtS TEST CHECKS WHEN SSE BIT IS SET WITH IDE SET AND A SOF 
*ERROR OCCURS THEN ALL CONTROL ACT ON WILL STOP AND A BUS 
: #REQUEST CINTERRUPT WILL OCCUR AT THE END OF THE CURRENT 
**¥SECTOR. SOFT ERROR IS SIMULATED Ty WCE AS IN PREVIOUS 


oe ARE SET 


ees eee 
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DZRKKC.P11 TS! CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET 


5483 sxTEST, PREREQUISITES | FOR THIS TEST ARE THE SAME AS THOSE 
24 jeeevesAtantantenataneantosntnbeennenmesaeeanenanenneanesaneants 
S486 016376 oco004 +4151: SCOPE 

S87 016400 104412 CNT. RESET :005 <9, CONTROL L RESET 

4 suis ¢ A CONTR NESET IS 
2y80 HTSSbeD e Bia a, "Tie 
549] RL RDY’ DOES NO 

5ug2 iON ERROR’ bs REPORTED. NOTE TRBT. 

- Sug3 *THE PC_IN ERROR MESSAGE IS THE 
5494 "PC WHERE 'CNT.RESET’ IS LOCATED. 
5495 :THIS IS A VERY BASIC ERRS IF IT 
5496 OCCURS GO BACK TO TEST 10 
S497 016402 104420 TST.SIN ‘CHECK IF SIN IS SET 
5498 *SET DO DRIVE RESET fO CLR IT 
5499 016404 012737 170007 032742 MOV #170007, OUTBUF+I6 sWCE IS SIMULATED BY DROPPING A SIT 
5500 -IN THE EIGHTH WORD (WHICH IS 174007) 
S501 ;NOTE THAT Mt 256 WORD MEMORY. . 
5502 *BUFFER (STARTING AT OUTBUF) IS 
5503 7 ‘CREATED IN A PREVIOUS TEST. 

S504 O1641e 013701 ooe544 - MOV DRIVAD, Ri 

550S 01616 012777 177000 164104 MOV #-1000? IRKWC sWRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 
5506 016424 0120777 032724 164100 MOV #OUTBUF.JRKBA :FROM THIS B 

S507 O18432 010177 164076 MOV KDA WITH THIS DISK ADRES, SEC 0, CYL O 
5508 016436 013700 002576 MOV RKVEC, RO 

S509 016442 012720 016474 MOV #15, (RO)+ ;SET UP INTERRUPT VECTOR FOR RK11 
5510 O16446 012710 o00340 MOV #340, JRO 5SET PSW ON INTERR 

5511 O164S2 012777 000507 164046 MOV #507, JRKCS T CHK, GO. SSE TOE SET: 

SSi2 O16460 1049417 177777 WAT. INT, 177777 MALT FOR INTERRUPT FROM RK1L 

5513 *TIMES48S MS FOR 11/20, 

5514 °97 MS FOR 11/45 

S515 O16464 004737 Oe0422 JSR PC, GT2RG L1/ 

5516 016470 104111 ERROR 111 sRK11 OIb NOT INTERRUPT AFTER A SOFT 
5517 ERROR (SIMULATED) IN SECTOR O 
518 016472 000417 BR 2s 

£520 016474 O22be6 13: CMP (SP)+, (SP)+ ;RESTORE STACK POINTER (FROM RK11 INTRUPT) 
5521 016476 Oecb26 CMP (SP)+’ (SP)4 sB0P STACK (FROM WAT. INT) 

5522 O16500 012777 OO4270 164070 MOV #BADINT, IRKVEC pt eK INTERRUPT VECTOR 

5523 OR UNEXPECTED INTERRUPTS 
5524 O16506 005201 INC Ri 

552e5 016510 020177 164020 CMP R1, ORKDA aie THAT RKDA INCREMENTED 

55265 "BY ONLY 1 SECTOR BEFORE INTERRUPT 
5527 5s > OCCURRED 

5528 016514 001406 BEQ 2s 

559 016516 010137 001162 MOV Rl, SREGO sGET EXPCTD RKDA 

6530 016522 017737 164006 001164 MOV gRKDA, SREG1 

5531 016530 104003 ERROR iRkoa SHOULD HAVE. Ihe INCREMENTED BY 

5S 1 SEC F AL CTRL ACTION 
5533 had STOPPED AETER SOFT ERR 

5534 : (SIMULATED) IN SECTOR 0. IT DID NOT. 
5535 0165 23: 

6536 016532 012746 o00340 MOV #340, -(SP) 

6537 016536 012746 O16544 MOV . #64$,-(SP) 

6538 Oles42 oo000e RTI 
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16544 64S: 

B50 pte M 005077 163756 CLR ORKCS ;CLEAR THE IDE BIT 
5542 : 
ay : SHTEST S27 {CHECK THE MEX BUTS. IN Rome 
Sous s#THIS TEST CHECKS OUT THE EXTENDED MEMORY nial? OF THE RKCS. 
5546 THE RKBA IS SET TO 177776 AND A ONE ITE CHECK IS TRIED. 

u? THIS COULD GIVE RISE TO NXM ERROR, N THE RKBA 
5548 j #SHOULD OVERFLOW INTO THE BITS: SUMICIBRLY IT 1S CHECKED 
pou T THe E OVERFLOWING BIT CAN MAKE THE MEX BITS ¢ 
351 ati geet seeneesnenaenernnsnsnne 
5653 gib5be G13700 o02526 ; RKCS RO | 
5554 016556 012701 177774 7 MOV 4 RL ;SET UP THE COUN 
S555 016562 o0S002 CLR Re ‘INITIALIZE MEX BITS TO B SET IN RKCS 
S556 016564 012737 016572 001110 MOV #1, SLPERR PEIN on ERR tsk 
sos8 016572 104416 000142 1S: DELAY DELAY . 
5559 016576 004737 921050 ISR Bo SSTRUS WAIT FOR R/W/S RDY 
5560 O1660e 104016 ERROR 16° *R/W/S RDY IS NOT SET 
5561 O16604 104412 CNT. RESET G0,. DO CONTROL RESET 
5562 :THIS IS A CALL FOR THE. ’CNTRL- 
5563 RESET’ ROUTINE. A CONTROL RESET IS 
as apie he es? Sea 
5566 7AN ERROR REPORTED, A NOTE THAT 
eee SOC MERE "ENT RESET? GE LOCATE 
pob3 thas sa VER VERY BR it obhRS IF IT 
5571 O16606 010210 MOV R2 RO " "SET MEX BITS ag” IN” B2) Bi RKCS 
5572 016610 012777 177777 163712 ’ MOV #-1, IRKWC *WRT CHK 1 WORD 
5573 016616 013777 O02544 163710 MOV baiven GRKOA THIS DISK ADRES, SEC O, CYL O 

74 016624. 012777 177776 163700 MOV #177776, aRKBA  ;THIS BUS ADRES. NOTE THIS 
PEoe 016632 052710 000007 BIS #7, ORO RT ee eo WITH MEX BITS OF RKCS 
5577 : “THERE MAY BE A NXM OR WCE BUT 
5578 WHATEVER THE CASE RKBA SHOUL 
55793 OVERFLOW MAKING THE MEX BITS COUNT 
5580 016636 104411 CHKCRDY $60 GEC If CONTROL ROY IS oe 

p58 16640 104065 a ERROR 65 be ;CNTRLROY DID NOT SET AFTER WRT CHK 

5584 016644 062705 oo0020 : ADD #20,.RS sMEX BITS SHOULD INCREMENT BY 1 TO THIS 
B>8S Olbbs9 g4270 000100 ar BIC #100, 8 ste ¢ OUT IDE BIT POSITION, IF SET 
5587 016656 042704 177717 BIC ait7i7, RY : MASK OUT ALL BITS EXCEPT MEX 
5588 Oibbbe De0504 cp Ro, R ty MEX BITS INCREMENT CORRECTLY? 
5590 0166 10537 001162 MOV RS, SREGO °GET EXPCTD: MEX BITS 
5591 0166 10437 001164 MOV R4’ SREG] GET MEX BITS RECV 
6592 016676 i041le ERROR 112 {MEX BITS DID NOT, INCREMENT AS 

593 *EXPCTD’ WHEN OVERFLOWED. 


594 ;NOTE THAT BIT POSITION 485 


4 
‘ 


a es; -_—_— 


roe 
Be 


a ot aa a 
O00 * JP U1. CTU C2 


eR OaR eR 


C1s744 
C1S746 


Spesy gee 


ac 


QOoo0Hd00N000 200 


i 
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OOCcO4 
012737 


MACY11_E7(732) 


CHECK THE MEX 


163620 
003001 
177776 
001162 
163574 


000020 


00000: 


001264 


001206 


cocoo4 


o00994 
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KCS 


MOV gangs, R3 


R3 
IC #3001,R3 
+4 


MOV RS, SREGO 
MOV ORKER, SREG1 
ERROR 


ADD 820,Re 
NC Ri 

BNE 1§ 
EST SS MSR HOR Slee Toray eee ee eeteeeseesesess 
} THIS TEST CHECKS 


THE HI 
i a her one S READ os 
THE T' 


: IT 10 Tie MED MAT TH WA 
ere tris not eN Sots Wait 


*SKIPPED ON AN 


eSs$.a84 - 
TST a#1?7700 
MOV 


#BADTMO, 384 
TSTS4 


BR 
CMP (SP)+, (SP)4 
MOV egnOTHO, 38 a4 


MOV 
MOV ab4S; (3p) 
RTI 

MOV RKCS,RO 
CNT. RESET 





;REFLECT MEX BITS O & 1 IN THE 


“ERROR MESSAGE 
‘GET RKER 
MASK WCE,OLT,NXM BIT, IF SET 
$BRA Hit Res oF RKER CLR. 
Ont THIS Re THE Ee RKER 
GET RKER RECV 
: ERROR in RKER. IT SHOULD 
:BE AS EXPECTED IN 
ERROR ESSA 
INCREMENT TO NXT MEX BIT 
SHAVE U CHKD THe MEX BITS 4 TIMES? 
:IF NOT, LUP BACK 
DISK TO TTY 
R BITS OF THE ADDRESS 
). 3s WRIT N ON SECTOR 
TT ¢ 00 
ELEtYeE. BUFFER 177560) 


eiiyet garnet 


yjeeseeedicuasntesncennensensiocsensansanesnensnsanennensesseenes 
Rov #1,STIMES 


::D0_ 1 ITERATION 
fits ci UT IF THE CPU 


) CAN 
MORY LOCATION 


RENC 
WAS —_e W/O TIMEOUT 


; At TEST 
3k at RE STACK POINTER 
: RESTORE TIMEOUT VECTOR 


J s. 
See eeaASS 
vo 
opm 


1S A VERY cate ERRS IF IT 
R5GO BACK TO TEST 10 





77700 1s REFERENCED 
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912701 032724. SOUTBUF RI 
6 7 V a THIS WORD 
HP eo RHE MB 
13702 nopode g : _ CYL 0, SEC 2 
183450 : : 
sFROM THIS MEMORY LOC 
000003 ‘WRITE, GO 


oo00 
$2 b- b= & = &-- f= ~~ BB 


<a 


eERes 


;GET RKCS, ER, DS 
Re SReeio GET THE STARTING ADRES 
‘BREAK IT INTO DRV 8 “t SUR, SEC 8 
31 NTRL RDY DID NOT ett fe 
HMBLTE OF WORD ON CYL 0, SEC 2 
“ g-1, SRKWC 


Re, arkoe : INT Fy State REGI 
astk IN, TTY KEY BRD aFaYUs REG 


;READ, MEX BITS SET 


aaa 
OOKOVO00ANDBLOO 28000 ONOV0000V0000000 


& 
Zand 


5& 

5676 
5677 
5678 
56 

5680 
S&8e 


Re, SRECIO 
45 


NNNNNNNSINSD ONSISIN NSN 


0+ 0 0 mh eee be ee 
a ey Ob p02 ho bo po po po po 
NITSELHSEH RNR TESLRS 


if 
AN Ee tere eth 
‘oes ot NTR OF R RKDA DA AT OF EROR 
te Co ar WORD READ i 
Ti i * are us REGISTER? 


001144 : #100, $TKS 


3 


eNaET THE WORD RECVC FROM DISK 


” STHIS WORD WAS EXPCTD 
:ST caf ix XPCTD WORD 


Pt tat at ato 
BBIRRLSOLS 


ist A ER RROR. A A ONE WORD . 

sNPR WAS TRIED FROM DISK 
Y_KEYBOARD STATUS REGISTER 

‘U 7756) . BIT 6 SHOULD HAVE BEEN 

;_SET_AS BeouLT OF THIS 

BUT IT WAS NO 


fp RERRRAAAA LALLA ALAA AAARELAALALALAASARARALRALARALAA LALA RARELARTA 





Check rHiat Rega SBN ROUNE cOBREEILY Oe - 
;*TEST 54 CHECK THAT RKBA CAN COUNT CORRECT 


saTHIS TEST. GREEKS THe THAT aT a fen a C RRecTLy Y. an a 


:#IS TR ne y HIT He M x {PEMD Y_EXTENS 17S ri If THERE 1S 

cane fi AN NXM ERROR S ST OpEI NAY CON ep Rese TON. ure RKER 
; SSHOULD HAVE NCREMENT i fron ITs AITIAL VALUE . rT 

. ie gnc ee a mes 


tS754: SCOPE 
MOV a5, STIMES TERAT IONS 
TST.SIN IN SET. IF SET ORV RESET 
CLR Ri (VALUE OF RK 
#2,R2 CINCMNTD VALE OF RKBA) 


#15, SLPERR jane ADRES FOR LUPING 


Bz 
Be 
ER 


d 


“J 


eet 


IY 
2 bb b= + Bb pe po 
00 IW UIC LIfuH-O 


eo 


RKBA, RS 
FC , TSTRUS Fy FOR RVW/S RDY 


ERR 
CNT. RESET 
bits a 
ae ab, aK creck, erreay MEX aei's SET 
K IF “GON ONTROL SET 
ri i THE E 
65 


NXM. 
OF ABOVE KINO 


gh ed BY 1 FROM 


ers 
BY 1 FROM ITS 
ME. 
J ORS OF 
NXT VALUE OF RKBA 
;SET EXPCTD VALUE OF RKBA 
;ALL DONE? 


TALLOW 
TPF NRT 


;DUMMY EXIT POINT 
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CT TA 


tETEST 5 CK FOR_RK- 
SeTHIS 1FeF KERR AicBGF TYPE DRIVES 
:#T0 INSURE THAT IF SEEKS BRE ISSUED ON ONE 


periie ) R R |  s 
or 00001 co1z06 Tetss: Soy el. STINES ITERATION 
| 
3% Bpoe ed TST at Hite TF RK 


BEQ 1$ 
o24s42 JSR RS, FCHECK OPE tf OTHER GOES BUSY 
ERROR 120 


Yd 


$763 
a 
8755 
$774 
5775 
$779 
e781 
5782 
5783 
5785 
233 
5788 
5789 
5790 
$791 
$733 
5794 
5795 
e737 
5799 
5801 
5802 
5803 
S804 
5a0e 
5807 
ea08 


1S: 
eisittii titi titi ttt itt tt ttt titi titiitttitittitittttiittttttttt 


:&TEST S6 ND 
. ; ATHIS 1S NOT A TEST BUT A LINKAGE PROVIDED TO PERFORM 
#THE ABOVE UB-TESTS FOR ALL DRIVES THAT ARE PRESENT 
t #NOTE THAT Fue TEST- HARDWARE POLLING LOGIC- 
#15 DONE USING ALL L THE rpedves THAT ARE INDICATED PRESENT. 
NO ON THIS 


<3 Pe 


18156 MOV #1, STIMES 
INC DRVDON incRevenT The THE OB OUNT FOR THE NUMBER 


THAT ARE CHECKED 
JSR PC, DRESET i0F 0 SET THE DRIVE 
CMP DRIVS, DRVDON SHAVE T wee PRESENT? ALL THE DRIVES 


Rob 420000, DRIVAD sHE AYES EXIT NXT POSSIBLE DRIVE 
J NUORV :G0 BB BACK A BND TEST HE NEXT 
1$: CLR SERTTL , 


itest G7 CHECK MARU PULLING Locic eee 
t ETEST 7 POLLING Logic 
s#THIS rest CHECKS T USING ALL THE DRIVES 


el een aes Mae 
32) HAV GER OF Loc et gee vee). SEEK IS INITIATED 


Tee cou PRIORITY. D THAT RK Scale INTERRUPT, THE INCOMING 
iEInreRRuPY Is Tt ee Be F IT WAS NERY 


:#4) fa ray OF THE SET Ig A DRIVE HAS NOT INTERRUPTED 
; HAN RROR MESSAGE IS GIVEN Ri TING WHICH ORIVE OID NOT 
NTERRUPT AFTER SEEK 
ae a A, 2, Re 
017466 coo004 téts7:; SCOPE 


Co En eo CODE ODED OD 
sb 0 0 2 ee 
WNW WO 





FOS 
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012737 00000S 001206 aS STINEs 
7? 002634 Y' 


024666 


Obeei0 


002632 


ve 
£oO 


;NO 

‘DONT COUNT F TWICE 
;ALL YET 

:NO 


SEVEN DRIVES FIRST IF F 
sANY DRIVES PRESENT? 


OQOOOOOOOOOOOKO000000000 
Bo 6 b= b= b= & = b= p 2 —< P= be Ds ps Fh Be ps pe de e005 2 


aes ane RONN 


sth TO INDICATE: 
3 (INDX1)=0 POLLING DONE AFT 


3 {INOX1)=1 
FLAG INDICATING 
:SET TO NON- 
:THAT THE INTERRUPT IS DUE TO 


CNT. RESET sSEEK DONE TROL 
: tee gNtRee aout INE, FO “hig 
sRESET’ 


i 
tN ERROR Ts, R 


LOCATED. 
ey BSHCSpg IF 


«Ft EKS TO CYL 4 


ootat 
Er 


a 


;SET_ADRES fae FOURTH CYLINDER 
INITIALI I 


Fe wd oR Pt 15° INDICATOR AREA 
ihe" witcn I H 15 USED FoR R DO NG 
77770 : PSET COUNT Pou 8 POSSIBLE DRIVE 

24 | _- FINITIALIZE POINTER TO INDICATOR AREA 


o00340 * mov, #340, -(SP) 
017670 ae4$’ -(SP) 


) Ss 
sS 


Se 


BB bs be Bt bh bm te ee 


BRRheresoueee 


oo 
bs he 
TJ 
N 
a 
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RTI 
64S: 
000001 : ITO, (R1> 


theoen cous 
Batol 


020000 


ABI IoSE 


aeons 
or.£O 


+ b= 0 b= b= 6 > = be po PB ps pe —s 


RERRRE: 


COKKHOOO0O00000 — 


THE 
3 AREA SHOWING THAT THIS 
; IN BITS 13-15 OF Re) 

; 
: 


;MASK OUT UNWANTED BITS (CYL,SUR,SEC BITS) 


seeaneeEReS 


~ 


5892 


eB 
5894 4 

5895 BM 
5896 0 

ee 

5899 0 

5 

5302 


sIS CNTRL RDY SET? 
:YES, BRANCH 

“NO, WAIT 

:IF uATED LONG REPOR PORT EBPROR 

sCNTRL BOY bre. NOT an AE TERCA ACCEPTING 
Bees | THIS Drv ete 0 oR, CYL 4 


eit Sou oa 


s INCREMENT ORIVE ADRES (BITS 15,14, 13) 


RANCH F I 
ae RHeeRED 40 Ste PE VRE NEXT 
ve is rpRESEN T (8 IF SO MeSue A 
*BY NOW SEEKS HAVE BEEN ISSUED 
: DRIVES PRESENT & ) PAL 
HAS BEGUN 


sSE FOR BK TO INTERUPT 

DROP CPU PRIORITY TO.4 SO THAT 
sRK11 CAN INTERUPT 

a 


1 
HIS IS A TIME LOOP DURING 
EnRtp DRIVES PRESENT SHOULD 
AND CHECK IF ALL RVATLAGLE 
TED CORRECTL 


m —W4OWw 
DWM 
3 @ 


{oom | oe | om | oe | om 
a2B8 2 


J 


. 


ene 


INTERRUPT 
ae "ADRES ACK’ AFTER INITIATION 
YES, CHECK THE FOLLOWING 


8 
: 
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5931 
e332 Seas rater o20000 grt #20000, JRO CHECK THOT hon NOT SET 
2334 11037 001162 MOV 0, SREGO 
B35 020060 104076 ERROR 76 ES i af NTER T WHICH 
ATION ¢ F SEEK, ScP 
5937 rte SET. 
938 020062 017701 162434 7$: MOV JRKDS, RI 
De00e6 : 169000 i 4160000, Ri 0s BITS 15-13 SHLOULD BE CLR 
5941 920074 010137 O01162 MOV Ri, SREGO Se 
t942 020100 104050 ERROR 5 K, WITH IDE SET YAS. ISSUED To 
5943 TeReT ie IVES. 
eat HINt 0, HAT THBTED 
94s Stexh 
5946 oY AFTR THIS FRET. PNRUPT. 
5947 s SHOULD NOT IF THIS ERROR OCCURS. 
5948 O20102 005237 002554 QS: INC INDX2 ;SET UP FLAG INDICATING 
2343 >THAT THE FIRST INTERRUPT DUE 
2350 510 INITIAT ON OF SEEK WAS 
5952 020106 000734 BR S$ GO BACK TO THE WAIT LOOP 8 WAIT 
5953 *FOR NEXT INTERRUPT FROM RK 
5954 920110 013703 002632 9S: MOV PHYDRV,R3 :SET COUNT OF # OF DRIVES PRESENT 
5955 029114 012705 032724 MOV #OUTBUF RS * INITIALIZE POINTER 
5956 920120 017701 162376 MOV JRKDS. Ri GET RKDS 
5957 020124 042701 017777 BIC #17777,RL *MASK BITS 0-12 
5953 *THE FOLLOWING CODE IS A 
5959 POLL WH CH FINDS WHICH DRIVE 
Sart SEND SETS UP AFLAG BIT F 
5 >THE DRIVE 8 INDICATING THAT 
5963 *THIS DRIVE & INTERRUPTED 
5964 020130 020125 CMP R1, (RS)+ : 
595 Oce0l3e OO14i1 BEQ 10$ ;BRANCH IF INTERRUPTING DRIVE WAS FOUND 
5966 020134 005303 ie DEC R3 *HAVE U CHKD ALL DRIVS PRESENT? 
2367 020136 001374 6 :IF NOT LUP BAK & CHK 
968 * REPORT IF THE INTERRUPTING 
5969 "i *DRIVE # (AS IN RKDS 13-15) WAS NOT 
5970 *ANY ONE OF THOSE THAT ARE PRESENT 
5971 020140 1014 MOV R1,-(R6) >GET WORD TO B SHFTD 
5972 Oe0i4¥e 004737 o20ble2 JSR PC’ SHFTRT GO SHIFT IT 
5973 O20146 012637 O01162 MOV (R6)+, SREGO sTHIS DRIVE # WAS vO IN KOS AS 
B34 :T ae Papi IVE, BUT THIS 
975 *DRIVE IS NOT PHYSICALY PRESENT 
5976 o201S2 104051 ERROR 51 ?RKDS INDICATES AN INTERRUPTING 
5977 :DRIVE # (DURING H’ POLL) 
5978 *THAT DRIVE IS ACTUALLY NOT PRESENT 
5979 020154 OOC401 oR 10$+2 
6980 020156 O0S524S. 10$: INC (RS) s$ET UP FLAG INDICATING THA 
5981 ‘THE INTERRUPT FOR THIS OR 
5982 : (AFTER i COMPLETED ITS SEEK) 
983 WAS SSE 
984 020160 000707 BR S$ GO BAK & WAIT FOR FURTHER INTRUPTS 
5989S 020162 013703 002632 11S: MOV PHYDRV,R3 GET # OF DRIVES 
£986 O20166 012705 032724 MOV. -#OUTBUF,RS * INITIALIZE POINTER 


MAINDEC-11-DZRKK-C 
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5987 
5988 


238 


Seta e aH nae RADE O RES MAT ES 


RA SHRSB ES SHR E SAE 
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105715 14$: STB (RS) ;DID THIS DRIVE INTERRUPT? 
OF Sse Bn 138, -(R6) ig 2 rot RIVE 
37 020612 mee PC, SHFTR : SHIFT 0 THE RIGH 
012637 001162 MOV (Rb) +, SREGO s THIS ee g 01D NOT INTERRUPT 
104052 ERROR 52 sORIVE # (AS N SREGO) pio NOT 
062705 00002 138: #2,RS SACRE RENT pore. TO THE NEXT FLAG 
005303 DEC R3 *CHKD FOR ALL DRIVES? 
901364 BNE 14$ IF NOT LUP BACK 
005737 odesse TST NDX1 ; DONE ING FOR SEEKS TO CYL 312? 
001004 BNE tO a a SESE NG 
005237 oo2s5se INC INOX1 IF NOT ENCREMENT FLAG 
000137 017600 JMP 1S$ GO DO fT 
sINDICATOR TABLE 
THe B-WORD INDICATOR TABLE USED IN 
THIS SUB-TEST 
QCATED Ser PRTING AT ’OUTBUF’. 
H13 40 T UP TO INDICATE 
*PRESENCE OF A DRIVE EG:. IF 
‘DRIVES 0,1,2 ARE PRESENT, IT WILL 
*LOOK Pree. 
z0U UTBUF : 
Pears A 
SHEN A ORIVE INTER COaRESPONOING. 
NDICATOR WORD ' 
NO EXAMPLE I Set = prives ht INTERRUPTED 
sCORRECTLY THEN sat et 
; : veep Pett C- 
: Bh OR INE 
TSTEND: INC VN : F RKOSF 
ANG vN itPe Spe 
BEQ als ALL DONE 
IMP b TEST AGAIN 
218: CLR TSEFLG 


-SBTTL END OF PASS ROUTINE 
5 9 363 33698 6 98 9 96 3 98 9 9 9 9 9 9 9 9 9 a 


t RINCRE NTT ent PA R ( (SPAS) 
sHNDICHTE AFTER 1 PASSES THRU THE PROGRAM 
RE XXXXX IS A DECIMAL NUMBER) 


So aXKXR™ 
He BERS Beales LB 


oa | ea MACYL1 27(732) 
DZRKKC 


3 
020264 
020264 


END ‘OF PASS ROUTINE 


ies 


100000 001100 


061100 


77 000 
p42116 
_ 020123 


SENULL: ‘BYTE 
SENDMG: .ASCIZ chest) eno pasé’ a7 
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SEOP: 


FF T 
He mi iy ENF renartns 
NCREMENT NUMBER 


PRS 
se ernes ve ALLOW A NEG. NUMBER 


{Poss aces tes COUNTER 


MG ‘ss TY PA 
apace” -(SP) HOE SPnes PBs fypE 
YPE .SENULL +3 er a aft eet —— 
SGET42: MOV aie RO ;}GET MONT TOR ADDRESS 
SENDAD: PC, (RO) $60 TO MONITOR 
NOP “SAVE ROOM 


FOR 
ssACTLI 


ae ; sRETURN 
;NULL CHARACTER STRING 


SOCAGN: 


.SBTTL GT2RG: ROUTINE FOR GETTING RKCS,RKER 
sSUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER 
519  SREGO, _SREG! pre areggIVELY BEFORE TYPING OUT AN ERROR MESSAGE. 
.SBTTL GT3RG: ROUTINE FOR GETTING RKCS, RKER, RKDS 
GT3RG 
: SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER, RKDS 
519, reco SREGI, SREG2 RESPECTIVELY BEFORE TYPING OUT AN 
:CALL: JSR  PC,GT3RG 
.SBTTL GTYRG: ROUTINE FOR GETTING RKCS, RKER, RKDS, RKDA 


;GTYRG 
:BTGRGUTINE FOR TRANSFERRING CONTENTS OF RKCS, RKER, RKDS 
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DZRKKC.P11 GTYRG: ROUTINE FOR GETTING RKCS, RKER, RKDS, RKDA 


;RKDA TO $REGO, 1 SREG3 RESPECTIVELY BEFORE 
s LING our AN ‘een A heance: 


z 


28. 


[=] 
rw: 


8, $REG3 ;GET RKDA 
ARKOS, SREG2 ;GET RKDS 
ARKER, SREGL ;GET RKER 
ARKCS, SREGO 


COOOrrna 


-SBTTL TYERM: SPECIAL ERROR MESSAGE ROUTINE 


TYERM 
iTHIS ROUTINE TYPES OUT ’EROR AT PC=x’ 

S_THE PC WHERE THE EXPLANATION AS TO WHAT HAPPENED 7 GIVEN. THIS ROUTINE 
ig UseD ONLY ry er OF THE PROGRAM. 


DOVTUN LWW -ODBIRA Le 


TYERM: 
TYPE 65S ss TYPE ASCIZ STRING 
*:GET OVER THE ASCIZ 

igg5s: .ASCIZ 18> <12>/EROR, Pcs? 
ey 8)") R3, -(SP) 


TYPOC 
RTS PC 


-SBTTL BDAO, BDAY: BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIVE 
;BDA0, BDAY 


2a Cie FEN AQ Di sr 3 au Sie fo iP. elt By USING b EITHER 


ee IN ic tee 9 Fanaa ro: BE SEER CALLING 


;SURFACE # I 
; SECTOR # INTO SREG3 SECTOR # INTO SREG7 
;CALL: BRKDAQ : BRKDAY 


PO Ded BORO EWI ODED NOONE CoOr Oo NOU Losruees 


020470 10046 BDAO: MOV RO, -(SP) ;PUSH RO ONTO THE STACK 
020472 012700 001172 MOV #SREG3+2, RO ;SET UP POINTER 


61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
61 
1 
61 
61 
61 
61 
. 61 
61 
61 
61 
pt 
1 
61 
61 
61 
61 
61 
61 
61 
“61 





ak ot ok MACY11 27(732) 16-SEP-76 16:00 PAGE 116 
DZRKKC.Pil BDA, BDAY: BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIVE 


BDAR 


BDAY: RO,-(SP) H RO THE STACK 
001202 M RGREGI 2, RO EE uP POIN ER 


O20000 160424 BDAR: #20000, dSWR ; INHIBIT TYPEOUT? 
BNE es ;YES, BRANCH TO EXIT POINT 


Germieten - 5 


RI, (SP) PUSH RI ON STACK 
R2' (SP) PUSH Re ON STACK 
S$REGIO,R1 :GET THE ADDRESS WHICH 
*HAS TO BE BROKEN 
#177760,R1 "EXTRACT SECTOR BITS 0-3 
- :MOVE SECTOR BITS TO SREG3 OR SREG7 
ES TO BE. BROKEN 


:GET THE. DSK-ADR 
;SHIFT RIGHT 4 TIMES 


b+ 2b -= b= P= b> b= pb - & = bp 


ON Soo GEE 


;STORE THIS 
EXTRACCT T ACE BIT 
;MOVE SURFACE BIT TO SREG3 OR SREGE 


; STORE 

s EXTRAIC "THE CYLINDER BITS 

MOVE CYLINDER BITS TO SREG1 OR SREGS - 
;SWAB HI-LO BYTES 

EXTRACT THE DRIVE # 

MOVE DRIVE # TO SREGO OR SREG4 


;RESTORE Re 

RESTORE RI 

RESTORE RO FROM THE STACK 
wo INTERRUPT, EXIT THIS 


-SBTTL SHFTRT: SHIFT RIGHT ROUTINE 


; SHFTR 

; THIS ROUTINE SHIFTS A sien TO THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED 
:1S PUT ON THE STACK BEFORE ENTERING THIS ROUTINE AND IT IS POPPED UP 
sFROM be © nee Be SRETRT SHIFT HAS BEEN DONE. 


bb b= be bbs = + hs bp 2 Bb bP Bb bo bo bs hg 


FO OB VEN LW OD NN LOO ODO NOE 


177763 020636 SHFTRT: es #-15,25 SET UP_A A tt OF 13 


C ‘CL 
000002 1$: ROR 1 The RIGHT “tie WORD TO B SHFTD 
020636 INC $ + RAIPTED 13 T 


fT pe iif 40 PRON ee Est T ne 


6 
: 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
: 
6 
: 
6 
6 
6 
I) 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
& 
= 
6 
6 
6 
6 
6 
6 
6 
be 
be 
be 





Z 
a 


Oo 


meomerre BB 


Forure 


REGE 
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Pll SHFTRT: CAtet Rion Rourthe 
.SBTTL CHKHE: CHECK FOR ’ERR’OR 
“SBTTL CHKHEL: CHECK FOR ’ERR’OR 
Chk 
oh inh oF | 1 it ge noe ReSSace er Bate tae sea aL 
INS THE DISK ADORE os HICH IS TO 
Be GFOKEN hare att YOR eee SURFACE AND SECTOR &. THIS INFORMATION 

13 SAVED TO BE USED LATER Pon’ Me We “EEPORTING. IF THE BITS ARE NOT SET, 

RETURN IS MADE TO SKIP THE ERROR MESSAGE 

: CHKHE 1 

: THIS ROUTINE CHECKS IF ’HE’ OR *ERR’ BITS. IN RKCS ARE SET. IF ANY OF THE 

:TWO BITS ARE SET, THE CONTENTS OF RKCS AND Da, ARE SAVED AND A 

baie IS MADE TO THE ERROR MESSAGE FOLL aiid Bye *JSR’ CALL. 

HE TIME OF ENTRY R1 CONTAINS THE DISK ADORES : WiticH 1S T BE BROKEN 

"DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR &. THIS INFORMATION IS 

*SAVED TO BE USED "laTER FOR BR, Aeon REPORTING. IF THE BITS ARE NOT SET, 

*RETURN IS MADE TO SKIP THE ERROR MESSAGE. 
020640 010127 o01202 CHKHE1: MOV R1, $REG1O ;SAVE THE DISK ADRES 
020644 000403 BR CHE1 


O20646 013737 002544 001202 CHKHE: MOV DRIVAD, SREGIO ; SAVE THE DISK ADRES 
020654 032777 140000 161644 CHEL: aM #140000, @RKCS ;IS ’HE’ OR ’ERR’ BIT SET? 


?NO 

020664 004737 O20406 ISR PC, GTYRG sGET RKCS,ER,DS, DA 

020870 104415 BRKDAY 6 TO *BOAY’ &’BREAK CONTENTS 0 
PREGIO INTO DR#, CYL, SUR, SEC BITS 

020672 000207 RTS PC *RETURN TO THE ERROR MESSAGE 


-SBTTL CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY 


KDA 

at HIS ROUTINE ee IF ae INCREMENTED CORRECTLY. IF RKDA INCREMENTED 

CORRECTLY RETURN IS MADE TO SKIP THE ERROR A 

IF RKDA DID NOT INCREMENT CORRECTLY, THE EXPECTED AND RECIEVED VALUES 
RKDA ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 


Pe ISR’ CALL. 
020674 01370S o02s44 GHKDA: MOV DRIVAD, RS iRK DA SHOULD INCREMENT TO THIS 
020700 005205 NC AFTER DATA TRANSFER IS DONE - 
020702 020577 161626 CHKDAL: CMP RS, IRKDA ‘DID RKDA INCREMENT CORRECTLY? 
020706 O0145S BEQ CRETRN “TF Y, YES, BRANCH 

TF NO REPORT gERROR 
020710 010537 o0120e2 MOV RS, SREGIO GET EXPCT TD RK 
020714 104414 BRKDAO :GO TO "BDAD’ & RaREAK CONTENTS OF 
S$REGIO INTO DR #,CYL,SUR,SEC BITS - 

020716 017737 i6l6l2 o01202 «.~° «MOV JRKDA, SREG1O GET ACTUAL RKDA 
020724 104415 | _ BRKDAY GO ‘TO BDAY’ & BREAK CONTENTS OF 


. :SREGIO INTO DR #,CYL,SUR,SEC BITS 
020726 009207 RTS PC *RETU RN TO THE ERROR MESSAGE 


ee oe o - — 
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OZRKKC.P11 

6267 
6268 
6269 
6270 
a4 

7 
6273 
psee 

75 020730 
PS 020734 
6278 020736 
6279 020744 
6280 020752 
6281 
6282 

83 

BY 
6285 
62 
be 
6288 
6289 020754 
6290 020760 
6291 
6292 020762 
6293 
6294 020766 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 020770 
6303 020774 
6304 020776 
6305 021004 
6306 021012 
6307 
6308 
6309 
6310 
6311 

- 63le 

6313 021014 
6314 Oel0ee 
6315 021024 
6316 021032 
6317 021040 
6318 
6319 d2l04e 
6 1046 


iis 


CHKDA: CHECK I 


161544 


004737 020414 


S777 161530 


“ee. 
013737 002524 
et 161514 


000200 
001407 
013737 O02526 
017737 161470 
000207 
062716 000002 
000207 


7 (732) 


RKDA INCREMENTED C 


001162 


001164 


161504 


001162 
001164 
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ORRECTLY 


~SBTTL CHKWC: CHECK IF RKWC OVERFLOWED 


anes ROUTINE gene IF RKWC OVERFLOWED TO 0. IF IT DID A RETURN IS MADE 
:T0 SKIP THE ERROR MESSAGE. IF NOT, THE CONTENTS OF RKWC_AND RKDA ‘vee SAVED 
“AND A R Ty IS “Fete TO THE ERROR’ MESSAGE FOLLOWING THE ’JSR’ CAL 


CHKWC: TS aR sDID Eve COUN OVERFLOW TO 0? 
BEQ.’ CRETRN tIF Y H 
h, ‘TF Ni ERROR 
MOV”  @RKWC, SREGO ? 
MOV JRKDA, SREG1 GET RKDA 
RTS PC RETURN TO THE ERROR MESSAGE 
ii .SBTTL CHKER: CHECK RKER CONTENTS 
?THIS ROUTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN IS MADE TO SKIP 
‘THE ERROR MESSAGE. IF ANY y 81 1S SET THE CONTENTS OF RKCS, RKER, RKDS ARE 
:SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. 
CHKER: TST JRKER :DID aNY BIT IN RKER SET? 
BEQ CRETRN :NO, BRR BRA NCH 
JSR PC, GT3RG :G0, ‘oft rakes, ER, DS 
RTS PC sRETURN TO THE ERROR MESSAGE 
; CHKECLR 
THIS ROUTINE CHECKS THAT RKER IS CLEAR. IF NOT, THE CONTENTS OF RKER 
ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE "JSR" 
CALL. IF RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RETURN. 
CHKECLR: TST  RKER sANY BIT IN RKER SET? 
BEQ CRETRN : NO 
MOV RKER, SREGO GET ADRES OF RKER 
MOV JRKER, SREGL GET CONTENTS OF RKER 
RTS PC *RETURN TO THE ERROR MESSAGE 
ict CLR STINE CHECKS THAT RKCS IS CLEAR. IF NOT, THE CONTENTS OF RKCS ARE 
j SVE ! AND A RETURN IS MADE TO THE ERROR MESSAGE. IF RKCS IS CLEAR THE 
R MESSAGE IS SKI ED ON RETURN. 
ieRecrR : CMP #200, aRKCS i18 RKCS CLEAR? 
“BEQ CRETRN : YES 
MOV RKCS, SREGO *SAVE ADRES OF RKCS 
MOV aRK KCS, SREG1 ; SAVE THE CONTENT OF RKCS 
RTS *RETURN TO THE ERROR MESSAGE 
CRETRN: ADD W2,(SP) , <e ERROR MESSAGE ON 
RTS PC : RETURN 
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DIRKKC.P1ll . TSYRWS: UTINE 


§323 -- -SBTTL TSTRWS: WAIT FOR R/W/S RDY ROUTINE 


ERO RUS 0 Bed BTSs SN TGS, TB 


A RETURN IS M 
nce SER yey 1040 MS FOR 11720, APPROX. 208 MS FOR Le 


$324 
§3eS 


002544 161456 TSTRWS: MOY  DRIVAD,aRKDA ; 

0025 CLR ; 

000100 161432 158: i adie ; 

002562 } IMER ; 
BNE 1$ 

16i4i6 001162 « Sac, SESS 


ORES THE lt 
NIT pipe ge 

ID R/W/S ROY Uae 

ES 

tWATT FOR R/W/S RDY 

ERROR oR a S NOT SET BY NOW 


:GET_RKDS 
SEXIT (TO ERROR FOOLOWING "JSR TSTRWS*) 


oooo2 : 42, (SP) ADJUST RETURN ADRES TO_SKIP_OVER 
i ERROR (FOLLOWING "JSR TSTAWS’ } 


3A 
31 
30 


-SBTTL ORESET: DRIVE RESET ROUTINE 


;DRESET 

THIS ROUTINE DOES A DRIVE RESE 

MULTIPLE RETURN ADDRESSE 

NO ERROR (R/W/S RD 

ROUTINE THE TO in 

: Batts (€S,ER, 9S) 

"ARE STORED AND THEN A NORMAL 

ZERROR MESSAGE FOLLOWING THE C 
“CALL: JSR PC, DRESET 


902560 DRESET: CLR COUNT 
002544 MOV ORIVAD, IRKDA 
009015 HOV ed #15, aRKCS 


N -20 
OR 11-45 WITH BIPOLAR) 
"3 IS REP Te 
000100 161354 : M tata ' ;0ID0 R/W/S ROY SET? 


177770 ~* #-10,-(SP) ;PUSH_ COUNT ON SP 
a (SP) :COUNT IT DOWN 
ST (SP }+ ;POP UP $P 
002560 COUNT I ;IF NOT WAIT 


SERRRER 
gemunes 
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DIRKKC.P11 DRESET: 
6379 02116 901364 
paee peice 732 

1 112 te 

vd 
bse Selzc8 O00 
§384 
6385 
£386 
= 
£390 
Paes 
e335 
334 
6395 
6296 mee 
1 13777 

338 Gsiei2 058777 
ee Bee Be 
640e Oelee& 0040 
6403 Cele30 9000 
6404 O2le3e 
640S O21e40 001373 
6406 GeleY¥e 104400 
6407 Oele46 000406 
6408 
6409 021264 
6410 Oeleb4 011646 
411 eles& 062716 
641e Cele 104401 
6413 Qe1274 000755 
6414 
$41 
£41 
641 
5418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
6429 021276 017637 
piste 021304 062716 
643e 021310 005337 
6433 021314 001375 


MACYL1 27(732) 


DRIVE RESET ROUTINE 
BNE 
O20406 aa 
000002 2s: AD 
RT 
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;WAITED LONG? 


SBTTL TSTSIN: CHECK ’SIN’ ROUTINE 


; TSTSIN 
; THIS ROUTING CHECKS IF crane IS SET, IF IT IS SET 
DRIVE RESET I LEAR 


DONE TO cL *SIN’ AND INITIALIZE POSITIONER. 


;CALL: N 

IF ON DOING DRIVE, RESET R/W/S RDY DOES NOT SET A MESSAGE 
ERROR PC=XXXXXX__[S N. 

S XXXXXX=PC IN THE “MAIN PROGRAM WHERE ’ TST. SIN’ CALL IS LOCATED. 


161 TSTSIN: ney 
181368 BIT 


#]000,3RK05- Te ein cere 


BEQ 
021116 ISR PC, DRESET 360 DO DRIVE RESET, SIN SET 
“ BR 2s [REPORT ERROR 
c20009 157700 2: BIT #SW13, ISWR s INHIBIT TYPEGUT? 
NE 5 : tIF YES, SKIP TYPEOUT 
621250 TYPE 65S :; TYPE ASCIZ STRING 
, BR 4g :GET OVER THE ASCIZ 
ii i658: -ASCIZ ERROR PC= / 
MOV (SP) = (SP) 
177776 00 8-2, (SP GET q PC HERE *TST.SIN’ IS LOCATED 
TYPOC :60 T 
1S 
.SBTTL DELAY: TIME DELAY ROUTINE 
:DELA 
; THIS Y ROUTINE PROVIDES A VARIABLE TIME DELAY. THE CALL FOR THIS 
sROUTINE IS AN ENCODED "TRAP INSTRUCTION. 
DELAY _,N N IS ANY OCTAL NO. FROM 1 TO 177777 
THe DELAY PROVIDED IS 7°5N US (CONVERT N TO DECIMAL) FOR 11720 
ite THE USER WANTS TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO 
GET A TIGHTER SCOPE LOOP) THE VARIABLE 'N’ FOLLOWING DELAY’ SHOULD 
:BE CHANGED TO SUIT THE INDIVIDUAL NEED. 
go0009 002562 DELA.Y: Hoy (SP) ,TINER VAMQUNT® (N) FOR WHICH 
“ane. : Ser Srack POINTER 10 70 SKIP OVER °N’ 
opest2 1S: DEC 


BNE 





TIMER 
1$ 
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DZRKKC.P11 DELAY: TIME DELAY ROUTINE 


: oie 021316 yoonne RII . ;RETURN TO MAIN PROGRAM 


~SBTTL WAT.INT: WAIT FOR INTERRUPT ROUTINE 


T. INT 
Tas ROUTINE PROVIDES A VARIABLE TI pea WAIT LOOP DURING WHI # Aan INTERRUPT 
:FROM RK11 CAN OCCUR. THE CALL IS AN ENCODED ’TRAP’ INSTRUCT! 


;CALL: ‘  WAT.INT ,N N IS ANY OCTAL NO. FROM 1 TO 177777 


WAIT LOOP TIME = BPPROX. 7.5N US (CONVERT N TO DECIMAL) FOR 11/20 

UPON ENTERI atts tN NE THE CPU PRIORITY IS DROPPED SO THA 

=RK11 CAN INT T. NOTE THAT WHEN RK11 INTERRUPTS THIS ROUT INE 

: HOUT NG THE STACK, Rte POPPING IS DONE AFTER GETTING 
WAI 


3TO RK11 INTE 
; ANY THE WAIT LOOP TIME HAS TO BE CHANGED i om BE DONE 
;BY SIMPLY CHANGING THE VARIABLE °N’ FOLLOWING THE ’WAT.INT 


WATINT: Mo’ ;GET the te 10 (y FOR WHICH 
AL shATT ING IS T Be reo 
;AD e! of oat a ER FOR CORRECT RETURN 
RKPRI , -( SP sO PRIORITY SO THAT RK11 CAN 


) 

#1$,-{SP). 

TINER swat? FOR RK11 TO INTERRUPT 
;IF_INTERRUPT HAS NOT OCCURED BY NOW 
SRETURN AND REPORT ERROR 


Oe 
Oe 
02 
02 
G2 
Q2 
02 


fe 


;WATIME 
WATIME: CLR 
CLR 
18: 
INCB 
BNE 
RTS PC 


RERRERR 


.SBTTL CHKCROY: CHECK CONTROL READY 
a “Roun NE WatT FOR THE CONTROL READY TO SET.: IF THE CONTROL READY BIT 
ITH N fy CER AIN TIME, THEN THE CONTENTS OF RKCS. RKER, RKDS 
XIT TO THE ERROR MESSAGE FOLLOWING THE 


i 3R Ga C 
ONTROL. REA gt Ay THEN THE RETURN ADDRESS IS ADJUSTED T0 SKIP THE 
ERROR MESSAGE ON RETURN. 
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DZRKKC.P LI CHKCRDY: CHECK CONTROL READY 


ere: ERROR ; RETURN F ERROR 
ooo ; RETURN HERE IF NO RROR 


CH.CROY: CLR TIMER 
IS: ° ‘ete , KCS sCNTRL ROY SET? 
FS eR ;YES 
ins 14 sNO, WAIT 
SR PC, GTYRG :SAVE RKCS, ER, DS, DA 


Cl Baa ae iSKIP ERROR MESSAGE ON RETURN 


-SBTTL CON.RESET: CONTROL REST ROUTINE 


ita a a A 10ST, ne ty we. WAITS FOR 


F’ FCHTRL ROY” 


out OF " 
TL MITHIN, 8 A CERTAIN TNE AN ERROR MESSAGE 


; Bx XXXXXX cas YYYYYY 
18 ee NOTE THAT XXXXXX IS THE PC WHERE "CNT.RESET® OR *CNT.RDY’ 


;CALL: CNT.RESET 


-SBTTL CNT.RDY: WAIT FOR CONTROL READY ROUTINE 


TINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 
TS Ve IF W Map by a Teo carte Ls CNTRL ROY DOES 


oft! 
T AN E NG TIME IS 883 MS FOR 11/20 
BS ie es Prot APra Bre BTPOr oR NenORY. 
‘ ee Econ RESET 
en oi oe OVER CN.RDY 
a 


= 02 Ext SET? 


‘IAT TED LONG LONG 


Has, aSWR ary Ft — 


TYPEOUT 


eae iiceT OVER tHe AscIz 
53658: (15>< 12) /PC3/ 


Cun 


SERINE ReES 


Z 


MAINDEC-11-DZRKK-C MACYL1 27(732) 16-SEP-76 16:00 PAGE 123 
OZRKKC.P CNT. ROY: 


ll WAIT FOR CONTROL READY ROUTINE 
4? 1514 | wk : * 
48 1514 011646 MOV (SP), =(SP) 

p50 beiess iBeaae ) PB oc #2, (SP) ;60 N N PROGRAM, 

1 | 021532 TYPE 675 MERE EHR outbereb 
fees fstesa Abacos rake $i TYPE ASCI¢ STRING. 
6554 --67§: .ASCIZ / RKCS=/ 
6555 021 bés: 
BOd 1 917746 160760 MOV RKCS, -(SP) GET, RKCS 
BS 1 104401 TYPOC : IT 
6559 O2e1550 o00002 2S: RTI sRETURN FROM THIS 
6560 - ms ? sROU TINE TO THE MAIN 
656 
fees 
6564 | ;THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
B565 FROM THE SYSMAC.SML PACKAGE 
cece ; 
bSb8 .SBTTL SCOPE HANDLER ROUTINE 
6570 : iWuis pout tie contnors. Tee cooene oe uatesten TT at, ineseres 
ae pi Ne OO TRE BISPLAY REBe cAtSeene 70>) 
£258 ane La THe Tea MBER ied hte 0 DISPLAY «15:08 
ee Pte SWITCH OPTIONS PROVI ROUTINE ARE: 

4s] 
p58 11=] ERATE T ITERATIONS 
6S iS 1 L R 
6578 ; #SWOB=1 LOOP ON TEST IN SWR<7:0> 
: SCOPE ; ;SCOPE=IOT 

1sS2 | SSCOPE: 

1552 CKSWR sTEST FOR CHANGE IN SOFT-SUR. 
& e155 3308 040000 157356 1S: IT #81714, aSWR FILOOP PRESENT TEST? 

1 1111 IF SWi4=! 
e 021564 000416 genera: or nhig pier eetne ieereateees TER 
Fees : Is I InaRUCT ION 10 19. ie nope ni 
6589 02156 013746 000004 th HOV a PEELS) 5 Hi gave ronTyieagy THE ERROR vEcT 
Baap fsteas presse S54Re8 Mey SRSA SHER NE 
6592 021604 012637 OO0004 MOV ree JSERRVEC ae te ERROR VECT 
6593 021610 O00463 BR SSvLab TEST 
6594 Oelble Oeebet Ss: CMP ( 4, (SP)4 + BP aR OFAC TER a TIME OUT 
pea ate 00423 _ BR recone st se THE SRECENY SESy TEST 
ge Geis 6$:;#8888END OF Eboe FOR THE XOR von’ ieee oT 
6598 bee — 000400 157310 BIT 1TO8, ISWR ;;LOOP ON SPEC, TEST? 
EPag 5 1b30 ened 157302 001102 ae eS STSTNM +3 Br MR GHT TEST?  SWR<7:0> 
6601 O21640 001462 BEQ SOVER >:BR IF YES 
6602 Oelb42 105737 001103 2s: TSTB © SERFLG *:HAS AN ERROR OCCURRED? 


G10 
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DZRKKC.P11 SCOPE HANDLER ROUTINE 


16 4 r BR IF 
boo rate 1By73? 001115 001103 cre gE, SERFLG HERE ors FOR THIS TEST OCCURRED? 
Bb08 1660 001000 157252 BIT #81703, , OSWR ; LOOP ON ERROR? 

1666 1404 BEQ 4 >:BR IF NO 
Bb08 3 137 f 001110 001106 7S: HOV sip BR, SLPAOR *:SET LOOP ADDRESS TO LAST SCOPE 
6610 551948 1 001103 4g; CLAS  SERFLG ZERO THE 
ae 21708 b0s¢ 001206 cLR STINES ssCLEAR THE NUM ae [TERATIONS TO MAKE 
Geis oe1?18 beige oo4000 157220 3S: BIT #BIT11,aSWR is INNIBTT ITERATIONS 
6615 51759 ape p43 001100 at it Bre PASS OF PROGRAM 
bb1b 021726 001406 ‘ BEQ we as INHIBIT ITERATI 

| Th 
bei a5 734 % Bb138e 001104 one Sines, srowt Heck the hURGE ER OF FTERATIONS MADE 
ceed Geir Gle73 anon, on1oy is: AY al,Slony [FFE INITIAL The LTERATION COUNTER 
bbe? aad 105237 Tage SSVLAD: INCB SHACNT, COUNT TEST NUMBERS 
6623 021768 011637 001106 MOV (SP), SLPADR ::SAVE SCOPE LOOP ADDRESS 
6624 Oel 011637 001110 MOV (SP)’ $LPERR SAVE ERROR LOOP ADDRESS 
6625 021774 005037 001210 CLR SESCAPE CLEAR THE ESCAPE FROM ERROR RODRESS 
6626 022000 112727 OO0001 001115 MOVE #1, SERMAX *:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
6627 022008 013777 90119 157126 SOVER: MOV STSTNM, IDISPLAY s DISPLAY TEST NUMBER 
6628 deed14 13716 1106 Mov SLPADR: (SP) nee RETURN ADDRESS 
bbs G22022 Soogse SMXCNT: SO ::MAX. NUMBER OF ITERATIONS 
Ppa ss KELL RSLESEEEHELF REL ERLE SLES FSA LES ETES SEE ESHEE SER ERE ESSLALEL EER SS RS ESS 
bbs .SBTTL ERROR HANDLER ROUTINE 
6637 :#SW1S=1 HALT RROR 
6638 ;#SW13=1 NHIBIT ERROR TYPEOUTS 
6639 :#5W10=1 ESTING ON SIMULATOR 
£640 * 1 LOOP ON it 
6641 #5Wl2=1 CYCLE ON ERROR TO PREVIOUS ’SCOPE’ 
bbHe says! Binh DROP RIVE AFTER MAXIMUM (ALLOWABLE) ERRORS ON THE DRIVE 
eas ee 
beYS 022024 - SERROR: 
peu? feetes 1pseg7 O00 78: MB SERFLG | BENT LET THE FLAG 
1 .* 'T LE THE FLAG GO TO ZERO 
001102 157102 MOV Seti, , @DISPLAY sDISPLAY. Test BND E OB FLAG 
001112 18: INC BONT THE RUNGE ROPE 
777 000100 157066 B17 #8176, ISWR ‘DESELECT DRIVE SW SET? 
00111 CMP RTTL, #5 MOR ERRORS ON THIS DRIVE? 
+ BHI 35 veces peerer sue RIVE 


001116 6S: MOV (SP), SERRPC GET ADDRESS OF ERROR INSTRUCTION 
000002 o01116 SUB #2, SERRPC 





i ee ee ~ - _ 
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a ERROR HANDL 


6659 


—— 


atatgtig 
aes 


at a atgtatin 
Bartow Zand 


SSEOEECEEEEEL 
SEE & 


zm 
S 


—s 
r=9 


28 
ae 


| Bates 


Ne 


= 


oOn- 
-_ 
re 


eee 


ays 


cs 
z 
x 
oO 
eo 


Han ER RBG A ) 


157014 001114 
020000 157026 


001213 


156776 


156762 


H10 
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33: 


4§: 


Ss: 
8$: 


10S: 


OSERRPC , SITEMB 


$U13, dSHR 


PC, 8SERRTYP 
SCRLF 


7 
asule, dSWR 


SLPADR (SP) 
#SWO9, ISWR 


SLPERR, (SP) 
SESCAPE 


S$ 
SESCAPE, (SP) 


TS6FLG 


10$ 
MSGS 


bRIVS 
(SP)+, (SP)+ 
DRVPTR, -(SP) 


#2, (SP} 
Pe et SP) 


50-2 @peprocD ae 


TRIP_AND SAVE THE ERROR ITEM CODE 


id TYEE OUT. IF SET 


0 USER ERROR ROUTINE 


1 Bea 


iy Ie set 8 

tap S FOR SwWl2 
net 3 eore Ry SET? 
FUDeE RETURN FOR LOOPING 

*CHECK FOR AN ESCAPE BBDSESS 

BR IF NONE 

:FUDGE RETURN ADDRESS FOR ESCAPE 
> RETURN 


BR EROR WAS IN LAST TEST (POLL) 
OP ALL THE DRIVES 


TABLE FOR EVEN DRIVE 
REMAINING DRIVE AS RKOSE 
:POINT TO 000 

T AS RK-OSE 

HINOICATE THIS DRIVE OROPPED 


Sa ET iT BEFORE, TYPING 


SDECRENENT # OF DRIVES PRESNT 
; RESTORE 3 ACK 
500 & wey 0 THE END OF PROGRM 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


ATH 


tSERROR ne. TO BE REPORTED. tT THEN 0} THE * 
;#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


sERnTvP: 


TYPE 
MOV 


SCRLF 
RO, -(SP) 


Dp ee eg a ge a 
T ON orn ae (SITEMB) % RoR Teak WHICH 


(SERRTB), 


$5 crane RETURN” & “LINE FEED” 
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;;PICKUP THE ITEM INDEX 
el We OR Ha 
001116 SERRPC , - (SP) oy SERRPC FOR TYPEOU 
AVR sects ors 
$F AOJUS THE woe hee SO_THAT IT WILL 
ERROR TABLE 


t PICKUP p ERROR -NESCAGE™ POINTER 
s3SK1P TYPEQUT IF NO_POINTER 


: 1] ZERROR MESSAGE” POINTER GOES HERE 
;;-CARRIAGE RETURN” & ae FEED” 
Oe TA al INTER 


site alte an 


ROER 
ROER” POINTE GOES HERE 


: a8 FEED” 

ao i TEBLE™ PO : POINTER 
(SP)+,RO OC TORE Roe 
SCRLF :] “CARRIAGE RETURN” & “LINE FEED” 
PC : sRETURN 
3(RO)+,-(SP) 3 SAVE E 9(RO)+ FOR. TYPEOUT coset 
(RO) HG THERE ANOTHER SuHeeR? 
BE F NO 

TWO(2) SPACES 
Ba ay 
8S: AScIZ / 7s: >: TWO(2) SPACES 


RO 
001114 oo 


-SBTTL TYPE ROUTINE 


$ SROUTINE TO TYPE ASCIZ MESSAGE MESSAGE MUST TERMINATE WITH AO. 
: €ROU 0 TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 9 BYTE BYTE. 
HTH ysintics WILL tNeeRT a R OF NULL CHARACTERS AFTER A 
1: SNULL CONT aI THE CHARACTER TO BE USED AS THE PIELER E CHARACTER. 
S SNOTE?: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
s ENOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


tSCALL: 
41) USING A TR&P INSTRUCTION 
TYPE » MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
MESADR 


022466 105737 001157 , : ‘TSTB S$TPFLG 3321S THERE A TERMINAL? 





Sa | emma —C 
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UTINE 


ee 
MONON CW O- 


8 
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1S 


38 -(SP) 

JelSP) RO 

(80), -(SP) 

(3p), RO 

rt (SP) 

#HT, (SP) 

#CRLF, (SP) 

c$ 

(SP)+ 

SCHARCNT 

2 

PC. $TYPEC 

SEILLC, (SP)+ 

SNULL, -(SP) 

1(SP) 

Be STYPEC 

ScHRRCh 
;HORIZONTAL TAB PROCESSOR 
8$: MOVB 
98: JSR Po, gfoprc 

BITB #7, SCHARCNT 
NE 9g” 

(SP)+ 

STPS 

STYPEC 

2(SP). aSTPB 

#CR, 2tSP) 

SCHARCNT 


| STYPEX 
1S: #LF (SP) 
Sty TYPEX 


F YES 
HERE IF NO TERMINAL 


RO 
phy +3 o Le STRING 
BE TYPED ONTO STACK 


BF lkadledtte nO TEP IP crack 


T RETURN PC 
He 
: BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 
;;POP_ <CR><LF> ed 
3; TYPE A CR AND L 
GET next CHARACTER COUNT 
CHARACTER 
3360 TYPE THIS 


CHARACTER 
IT TI Fok Re CHARS. ? 
GO HAR. 
OF FILLER CHARS. NEEDED 
NULL. CHAR. 
NULL NEED TO BE TYPED? 
-GO — THE NULL OFF OF STACK 


a 
NOT COUN AS A COUNT 


ss REPLACE TAB WITH SPACE 

+ sIYPE SPACE 

+ PTE Stop 

; POP SPACE OFF STACK 
*GET_NEXT TER 

tI UAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
i aR aes Ee A CARRIAGE RETURN? 


; BRANCH 
; 3} YES-=CLEAR CHARACTER COUNT 


X 
iTS CHARACTER A LINE FEED? 
3 }BRANCH IF YES 
CHARACT 


a ; ;COUNT T 
;;CHARACTER COUNT S BRACE 


8 G0 60 60 60 Go 60 Eo ED DO ED 


rT 
— 


SCHRRONT: “ORO bese 
YPEX: RTS Cc 


ROSS 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
$5 HAE AEA AR AE HE AE AR HEHE HE HE SEER RE HE RAE HEE AEE EERE HEHE REE RR 


& 
o* 





10 
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;*THIS ROUTINE IS TO eee Al INARY NUMBER TO A GIT 
a ee Bs ete ror VE A ao Tee bran ORINUS. SIGN on eTie The 


HE FIRST THE NUMBER. LEADING. FEROS WILL ALWAYS BE 
 HEPURCED WITH paces. 


i MOV ;;PUT THE BINARY NUMBER ON THE STACK 
+ :G0 TO THE ROUTINE 


STYPDS: 
pba RO ON STACK 
3 PUSH Rl ON STACK 


Seceeece 
ae 


5 
R 


: MAKE INARY NUMBE! 
MAKE THE ASCII NUMBER NEG. 
$$ZERO, THE eriaan 
Heer THe FIRST CHAR we TO A BLANK 
LEAR THE BCD NU 


Be are DIGIT 


S TCREASE T THE BCD DIGIT BY 1 


;;ADD BACK THE cones Tart 
3s CHECK IF BCD DIGIT=0 

ALL THROUGH IF 0 
STILL DOING LEADING 0’S? 
73BR 4 YES 


;BR_IF NO 
t tYES--SET THE SIGN 
5s MAK THE BCO Richt ASCII 
IT A SPACE_IF NOT ALREADY A DIGIT 
; ;PUT THs et IN THE OUTPUT BUFFER 
3;JUST INCREMENTING 
5s EREr THE TABLE INDEX 


s 


—-O0F-O 
—— 


002402 
000774 


eae 
Seatac tetatat 


a 


;G0 CHANGE TO ASCII 
Hibs THE LSD THE FIRST NON-ZERO? 


;BR IF net 
;;YES--SE TeeritRAy FOR TYPING 


023122 
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016666 000002 000004 : + ;sADJUST THE STACK 


bpabne RETURN TO USER 
SDTBL: ae 


001750 
000144 . ‘ 
poos1e 10. 
0004 SDBLK: .BLKW 4 
“VSBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Dye ee tre a pn cial pt ee ae 
ATH THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
| #OCTAL (ASCII) NUMBER AND T 


YPE IT. 
oe HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
NUM, -(SP) ;;NUMBER TO TYPED 
1 ae FOR TYPEOUT 
i3N i TO & FOR NUMBER OF DIGITS TO TYPE 


2? M= 
: 1=TYPE LEADING ZEROS 
: t OSSUPPRESS LEADING ZEROS 


: ¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i #8TYPOS OR STYPOC 


;% MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3% TYPON ;;CALL FOR TYPEOUT 


3% 
— HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUM, -(SP) ;;NUMBER TO BE TYPED 
_ 33CALL FOR TYPEOUT 


STYPOS: . V ;PICKUP 


Hoe ao seh EE hr 


ADJUST RETURN ADDRES 


BR 
STYPOC: MOVB — THE ZERO FILL SWITCH 
#6, SOMO izet FOR SIx(6) DIGITS 
STYPON: MOVB ;SET 1 ITERATION COUNT 
MO R tISAVE R 


OMODE 
ah RA 


£360 D 
FORM THIS DIGIT 








er eu ek 


Siaatat 
Paes 


oo0002 


000176 
155550 
1SSS44 
177600 
000007 


001134 


MACY11 27(732) 
BINARY TO OCTAL (ASCII) AND TYPE 


33 OWO0O HAI2OO-w-4w 
S54 SLSHHSOUMOr 
oma 


001140 ji SWR: 
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RS 

RS,R3 
ine 
#177770,R3 


Oo 


TTY INPUT ROUTINE 
$3 SLKLELEEL EERE RERTELERELL SAE EL ELE LEAK LEAL KSA ELE SLR L AE ASEH ERELHL 
"ENABL LSB 
KEKE AKS ELE HE LLL KEL KELL HERSEK KEL EK LL LK SH KK AA KELL KE LA LLL F HAL FHKE 
TER CHANGE ROUT 
OM THE TRAP HANDLER, AND W 
CHANGE IN SOFTWARE 
N OPERATING IN TTY FLAG MODE. 
CMP #SWREG, SWR :1S THE SOFT-SWR SELECTED? 
3 ;BRANCH IF _NO 
AR THERE? 
iii NO, DON’T WAIT AROUND 
SAVE THE CHAR 
jsSTRIP-OFF THE ASCII 
HB, RETURN TO Lise 
ae ie IF 


;;ECHO THE CONTROL-G (1G) 
+5 TYPE CURRENT CONTENTS 


aSTKS 
15$ 

Seika -(SP) 
atl 7? (SP) 
#7, ( 
SAUTOB, #1 
15$ 


,SCNTLG 
’ SMSWR 
SWREG, -(SP) 


R3 
3;5ET THE STACK “oe RETURNING 


PISTORAGE FOR ASCII DIGIT 
s TER NINATOR FOR TYPE ROUTINE 


SWITCH 
bi Feroe OF DIGITS TO TYPE 


YPEQUT 
$380 TYPE--OCTAL ASCIIC(ALL DIGITS) 













Oe a oleh 
;BR_I 


CET RID. OF JUNK 
2: TEST F 

39 ta? HIS 0? 

TOON? T T SUPPRESS ANYMORE 0’S 
*:MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 









; RESTORE 
t RESTOR E 





;RETURN : 






jOCTAL DIGIT CO 
RO FILL 




















WILL 
WARE SWITCH REGISTER TRAP CALL 








SER 
RUNNING IN AUTO-MODE? 






;SAVE SWREG F 
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6995S Oe3442 104400 024263 TYPE 1 SHINE PROMPT FOR NEW SWR 
6336 023446 OOSO46 19$: CLR P fae COUNTER 
p336 pest29 op a038 1SS466 7S: fee it :3CH 2 
6999 023456 100375 BPL . IF NOT” TRY AGAIN 
177 1554 MOVB a$TKB, -(SP) ;;PIC 
cote peaie4 Aaseie ai BIC CFs. P) isha if tT ASCII 
ree 
7006 023470 981687 oo002s 9S: CMP (SP), #25 1S IT A_CONTROL-U? 
7007 023474 001005 BNE .. 10S + Rac IF NOT 
7008 023476 104400 o24240 TYPE SCNTLU ECHO CONTROL =U (tu) 
7009 023502 062706 000006 20$: ADD he. SP tT TGNORE PREVIOUS INP 
2510 023506 00075 BR 19$ tieT S TRY I ReAIN ~ 
7012 
7013 023510 021627 oDD015 10$ C (SP), #15 s31S IT A<CR>? 
7014 023514 001022 BNE 16$ BRANCH IF NO 
7015 023516 005766 900004 TST 4(SP) :YES Is I THE FIRST CHAR? 
7016 O2e3See 001403 BEQ 113 ::BRANCH IF YES 
7017 Des5e4 16677 oo0002 155406 MOV 2(SP), aSWR Ha E 
7018 0235 706 OO0006 11$: ADD ;;CLEAR 
7019 023536 104400 001213 143: ‘TYPE SCRLF “ECHO <CR> AND < 
7020 O23542 123727 001135 o00001 CMPB ©=-« SINTAG, #1 {RE-ENABLE TTY KBD. INTERRUPTS? 
702i 023550 001003 BNE oS +r BRA NCH IF NOT 
7022 O235S52 012777 OO0100 155364 MOV #100, 2STKS RE-ENABLE TTY KBD INTERRUPTS 
7023 023560 o00002 15$: RTI TU 
7024 Oe3S62 004737 022636 163: JSR PC, STYPEC Heap CHAR 
7025 023566 Oel627 O00060 CMP (SP), #60 CHAR < 
7026 Oe3572 O0e4eD BLT 18 : BRANCH IF YES 
7027 023574 O2ib27 OO0067 CMP (SP), #67 CHAR > 
7028 023600 003015 i BGT 18 >: BRAN cH tF 

7029 O23602 042726 O00060 BIC #60, (SP)+ j SSTRIP-OFF ASCII 
7030 005766 o00002 TST 2(SP) *:1S THIS THE FIRST CHAR 
7031 Oe3612 001403 BEQ 173 : : BRANCH IF 
7032 023614 O06316 ASL (SP) 3NO, SHI T PRESENT 
7033 O23616 006316 ASL (SP) 7: ‘CHAR OVER TO MAKE 

02 006316 ASL (SP) *: ROOM FOR NEW ONE. 
7035 Oesbe2 O0S266 oo0002 17$: INC 2(SP) KEEP COUNT OF CHAR 
7036 Oes626 OS6616 177776 BIS -2(SP), (SP) biSET IN NEW 
7037 023632 000707 BR i 3GET THE NEXT ONE 
7038 O23634 104400 oDl2le 18S: YPE SQUES tI TYPE 2<CR><LF) 
7039 023640 000720 BR 20$ SIMULATE CONTROL-U 
7040 .DSABL LSB 
rau 
7043 : eset rete ett eet e teste tet tee ttt ttt tttittettittt ttt 
7044 pATHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
oOue He RDCHR INPUT A SINGLE CHARACTER FROM THE TTY 
7047 . 1 RETURN HERE ::CHARACTER IS ON T 
704 * *:WITH PARITY BIT STRIPPED OFF 
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states SROCHR: MOV ts Ehve € THE PS THE PC 
16656 00004 900002 MOV 
155266 18: 


000004 


TER 
33 T TY 
33GET RID OF JUNK IF ANY 
3 S IT A_CONTROL-S” 
CH IF NO 


g-> 
ut 


z 


dSTKB, -(SP) 

#tCi7?, (SP) MAKE IT 7-BIT ASCII 

(SP)+, bel ::1$ IT A CONTROL-9? 
3316 NOT DISCARD IT 


cscs 
~ 


roe 


ig -° 

ALS?) , 8140 

4(SP), #175 

4§ 

#40,4(SP) 
4S: 


RTI 
A coeds clantiasiiamateneie nite tiie, at icabemecaaaaal 
sSTHIS. ROUTINE WILL INPUT A STRING FROM THE TTY 


" RDLIN ;; INPUT A STRING FROM THE T 
RETURN HERE 3 s BODRE SS 8 OF paRST CHARACT : “uth BE ON THE STACK 
3; TERMINATOR WILL BSE A BYTE OF ALL O°S 


SSeue 


7072 
7073 
7079 
7375 
7076 
7077 
7078 
7080 


URS 
Ske 


R3,-(SP) 
(SP) 


rah VE R3 
: CLEAR THE RUBOUT KEY 
00k ESS, 
agTTvinved, R3 


|S parte at 
UNE 
Rone 


THE FIRST RUBOUT? 
K SLASH 
T T KEY 
a 26 08 
Ra, aSTTYIN ; | STACK ENeTY? | 
(R2>, 98 : SETUP TO inte THE DELETED CHAR. 


YP. 
£360 READ ANOT 
;;RUBOUT KEY et 


BEQ ;;BR 1 
024214 wy *\,9S . ;;TYPE A BACK SLASH 


;;CLEAR THE RUBOUT KEY 
i315 CHARACTER A CTRL U? 


: TYPE A CONTROL “U" 


Ort 
aie 


k 


ee: 
Sree fetes 


Sy 


‘QOwWo 
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000022 gS: en : iis Grane Tee A "HR"? 


;BRANCH_T 
HiCLERR THe _CreRGCT TER 


;TYPE A” 
ine Th THE” FNPUT TRING 
$160 a UP ANOTHER CHACTER 


t CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 


3 CHECK FOR han 
any IF _NOT RET 


a 
9 = = 3-2 P= & = Qe 
bs Ge 
Mo 


ODO NTUTOU-OBES & 


FEED 
T KEY FROM THE STACK 


3 
fot pits STACK AND PUT = ad THE 
8 T ASCII CHARACTE 


=I NINININININININNN IIASA 


> 6 ~ 6-2 b-- 2 b-~ & -- 0 = b-< b- 2 6 — - 2 8 = BH 


tu 
w 


¥ 
AINSITOROSESS CORSE 


- 2 © bh 9 > fF B- + > = hp op we 


“ 
~ 
HY 
s £--—-—- 


BPPPEPP PRES REE EE EEE: & 


5 
2 


; sRETURN 
9S: ° ;;STORAGE FOR ASCII CHAR. TO TYPE 
8 :; TERMINATOR 
STTYIN: . 22 s RESERVE se. BYTES FOR TTY INPUT 
: /tU/<15><12> EON NTROL 
7#G/<15><1e> NTROL “on 
(15><12>/SWR = 7 - 


/ NEW = / 


bo 
Ca it) 


7126 
7127 e 
71e8 Oeve 
7129 
7130 
7131 


aevei8 

lige Qete4s 
ese 

260 

263 

70 


SNNNNNS 
ey 


boy, ;CONTROL U, RUBOUT CAPABILITY 
-SBTTL TRAP DECODER 


; [eveatcnopsuavascetsceesseresesneoeeactsees ter grecss reetnrett 
4 THIS ROUTING WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 
INDEX THROUGH THE TRAP TABLE FOR THe STARTING ADDRESS 
:#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;#G0 TO THAT ROUTINE. 


a." 
ADDRESS 
BYTE OF TRAP 
RO $3 FOR INDEXING 
STRPAD(RO),RO 5; TABLE 
RO - +B ROUTINE 
-SBTTL TRAP TABLE 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP™ INSTRUCTION. 


; ROUTINE 


024316 éTRPAD: | 
Os431e STYPE ;;CALL=TYPE —-TRAP#O(104400) TTY TYPEOUT ROUTINE 
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$TYPOC galt = yeee TRAP+1(1O4NO1) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
{SACL STYPOR Bis Wee Set AL NUMBER (AS PER Last CALL) 

STYPDS :icALL=TYPOS — TRAPSMCLOMMON) TYPE DECIFIAL NUMBER CWiTH STN) 

SGTSWR ;;CALL=GTSWR — TRAP#S(10440S) GET SOFT-SKR SETTING 

SCKSWR ;;CALL=CKSWR TRAP+ 104406) FOR CHANGE IN SOFT-SUA 

Boon ERR FRRSuGa, FY Hee STRING ROUTINE 

CH.CRDY ;;CALL=CHKCROY TRAP+11(104411) CHECK CONTROL READY 

CN.RST ;;CALL=CNT.RESET TRAP+12( 104412) CONTROL RESET ROUTINE 

CN.ROY ;;CALL=CNT.RDY TRAP+13(104413) WAIT FOR CNTRL ROY TO SET 

BOAO —; ;CALL=BRKDAC TRAP+14(104414) BREAK RKDA INTO DR #,CYL,SUR,SEC BITS 

BORY —; ;CALL=BRKDAY © TRAP+15( 104415) BREAK RKDA INTO DR #,CYL,SUR,SEC BITS 

DELA.Y ;;CALL=DELAY — TRAP+16(104416) TIME DELAY ROUTINE 

WATINT ;;CALL=WAT.INT  TRAP+17(104417) WAIT FOR RK11 INTERRUPT ROUTINE 


TSTSIN ;;CALL=TST.SIN TRAP+20(104420) TEST SIN ROUTINE 


-SBTTL POWER DOWN AND UP ROUTINES 


5, RERAAASSSSSLELAALLSSSLERSAAELAALALAL ALES AAALAL ALAA LAE SAES SLES 
“POWER DOWN ROUTING 
$PWRON: MOV SSILLUP, JePWRVEC ;;SET FOR FAST UP 

MOV #340 SUPURVECHE ;PRIO: :? 


sass 


»- (SP 
( 
( 
( 
( 
( 


OOOoOOOOOoO000 
= 0 b— 0 0 0 0 


qaneeee 


;;HANG UP 
 SLLFAELAREALELAESELAASASSSASAALASARSLARSERSSAELRLASSSALLSRRELHESE 


SBOWER UP ROUTINE 
$PWRUP: HOV : ILLUP, J#PHRVEC ; s4SETE FOR FAST DOWN 


SP 
3 it “Top FOR THE TTY 
18: INC ;;WAIT FOR THE INC 


+ ee K INTO aSWR 
POP STACK INTO R5 
;;POP STACK INTO R4 


8 


rrdrondriranonsnons 
= 0 0 8 0-2 2 
@NCUN CWO 
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UP ROUTINES 


MACY11 
AND 


MAINDEC-11-DZRKK-C 
DZRKKC.P11 POWER DOWN 


7213 


DBRS 


a ORRENSRCRERCEOIOneNs Suamamore ad 


fee 
7 

7223 
re 
re 
ee 
7236 
7237 
7333 
7241 
7242 
7243 
T2494 
res 
7247 
7e48 
7249 
7250 
es} 
7253 
72S4 
7255 
fess 
7258 
7259 
7260 
7261 
7ebe 
7263 
Pied 
reps 
7267 
| 
7270 


3388 


012603 


a 
i 


i 


2 
6 


WAG Gece 


z 


<= 
-_ 


oe 


B60380 


do0uee 


DUCES. a r 


SPOWER 
(PC)+, (SP) 
PFSTRT 


VRE: 0 
: .ASCIZ 
- EVEN 


(15><12>"POWER” 


PC, ORESET 


Pa 


43Ow 
WuUne+— 
474WwW 


RO)+ 
RO)+ 
aoRVa4I sPPAyRO 


PC 


DBOWO 
—c> 
wm- 


HB 
THE POWER DOWN VECTOR 
PORT THE POWER FAI 


ah i At peste "POINTER 


a R UP SEQUENCE WAS STARTED 
2 HEF DRE e We POWER DOWN WAS COMPLETE 
::PUT THE SP HERE 


ttpop STAC Ng 


;RESETB DRIVE 


;SAVE DRIVE 

;SEE IF ODD 

;MAKE EVEN 

;MAKE ODD 

;ORIVE SEEK 

;OTHER DRIVE 

IND. §0 RK IN _MOTIONN? 

RK-OSJ 


T 
WAIT FOR RESET 


; START AT ORO 
;TABLE OF AVAIL DRIVES 
; THIS DRIVE HERE? 
: COMPLEMENT HERE? 


iSEE TE r F MODEL 


Ee Nee . 


xT ey OF DRIVES 
XT om 
Seats 

;NOT YET 
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DZRKKC.P 11 POWER 00 


sERROR MESSAGES 
.SBTTL ERROR MESSAGES 
-ASCIZ /RKWC EROR/ 


-ASCIZ /SIN IS SET/ 


Be REARS: 
ao 


-ASCIZ /RKBA EROR/ 


& 22 xs 


-ASCIZ /RKDA WRONG AFTER °SSE’/ 


NG NW 


ag 
Be 


7RKDS EROR/ 


8 8 
= Re 


/DPL SET/ 


/DRU SET/ 


Be Be 
22 2 
S 
R 


ae: 
gz 
=9 
NO 


| Bag 8 


/RKOS BIT NOT SET/ 


Re 
R 


/ORY BIT NOT SET/ 


7288 
7289 
72390 
i 
72384 
7295 
72% 
7297 
7298 
7299 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
7308 
7309 


RR 
§ zo £ 
Ae 
eh 
Re 


di 


“SOK DIDN’T SET/ 


iv 
is 

wey R 
Be 
Re 


RE2R 8 
oe 
2229 
8 


/SEC-CNTR DIDN’T COUNT TO O/ 


PAPER TAA PRPA AIP] 


he 
OC NCU CWO 


R Bye 
2 
ee 


/SEC-CNTR DIDN’T INCRMNT/ 


RESARS 
arate 
br 
ie 


R2 g 


—NwW 
nz 

5-5 

Oo 


/SEC-COUNTR INCRMENTED WRONG/ 


a 
be 
Oo 
= 
Tu 


ae 
N 

-_ i 
—— TU 
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7331 


Rr beeen 


fae 


999 


aia 


Pe 


OeSeS6 
O2S264 


os8e76 


a 


eR 
RE 


BR 
RR 


BESSS 
PROS? 
PARE 
REzn 


sie 
2 
2 


PRR 
RE 
2? 
Re 


= 
28 


229 s7282 

SRN TVSrk 
BRe 
etsut 


47 
042514 051101 
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baat to) 


——u 


furor 
OWWNM 


% 


Bee Bo 7R8 


i aed 
HT 
eos 
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EM4O: 


EMM: 


EM43: 


EM4Y4: 


EMYS: 


EMY6: 


EM47: 


EMSO: 


«ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/DIDN’T GET SC=SA FOR THIS SECTR/ 


“EROR-R/W/S RDY SHOULD BE SET” 
/UNEXPECTED RK11 INTERRUPT/ 


/CNTRL ROY DIDN’T SET AFTER SEEK OR DR RESET’ 


he Ww 


“ERR OR HE BIT SET ON SEEK OR OR RESET” ie 


/RKER BIT, ON SEEK OR DR RESET/ 


/RKCS CHNGD AFTR FUNCTION WAS DONE/ 


“R/W/S ROY DIDN’T CLEAR” 


“CNTRL RDY DIDN’T SET ON WRT/FMT STARTING FROM <DSK-ADRES>” 


“R/W/S ROY DIDN’T SET AFTR SEEK OR OR RESET” 
/ONTRL RDY DIDN’T CLR AS GO WAS SET/ 
“HE OR ERR ON WRT/FMT STARTING FROM <DSK-ADRES>™ 


/RKDA INCRMNTD WRONG ON WRT-FMT/ 


/RKBA INCRMNTD WRONG ON WRT FMT/ 


/RKDA CHNGD AFTR SEEK/ 
/RKWC DIDN’T OVRFLO ON WRT FMT/ 


ASCIZ 
ASCIZ 
ASCIZ 
-ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 


EMS3: 
EMS4 
EMSE: 
EMS7 


att EMSS: 


| fo gee Gee ee 
a Gites’ geictotaes Garis Bence 
are “Eayed Epdaaters ‘ ‘tis bial 


aon me Ghia Goknuetes canna © 


BRRRRRRRRRRR RRR ER LER ERERREEERER ES 


3 
te 
tw 
3 
= 
a 
2 
4 
rs) 
— 
7 
a. 
% 
.o 
st 
@ 
— 
i 
ey} 
Ww 
2 


t 


pee, 0S14S7 EMS1: 


MAINDEC-11-DZRKK-C 
7442 O26302 O4SSee O40S02 O4444O ENED: 


DZRKKC.P11 
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DZRKKC.P11 RROR MESSAGES 


026310 041516 O46Se2e 052116 
026316 020104 OSlle? 047117 
Oe63e4 020107 O47117 OS3440 

043040 5 


026341 lee O42S13 Oe0lee EMb1: .ASCIZ /RKER SET,ON WRT OR RD OR FMT/ 
026346 026124 ? 

Osoize Oselse GHD | 
Oses76 e0ls2 ovesoe 00124 


O26375 O4SS22 041104 O4244O EMb2: .ASCIZ /RKDB EROR/ 
026404 O47S2ee 000122 . 


SESE ELLIE 
: 
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OZRKKC.P11 ERROR MESSAGES 


O26410 O45S22 O40S04 OY444O EM63: .ASCIZ /RKDA INCRMNTD WRONG ON RD OR RD FMT/ 
O264S4 O45Se2e 041527 O4e204O EME4:  .ASCIZ /RKWC DIDN’T OVRFLO ON RD OR RD FMT/ 


13 pep t0L EM6S: .ASCIZ /RKBA INCRMNTD WRONG ON RD OR RD FMT/ 


EM66: .ASCIZ /INCORRECT HEADER FROM ’SECTOR’/ 


y 
@ 
S 
2 
H+ a 

rate) 


EM67: .ASCIZ /DATA ERROR/ 
— 006- . . — = _ at 


O46le2 EM70: =.ASCIZ “CNTRL RDY DIDN’T SET ON RD/FMT STARTING FROM <DSK-ADRES>” 


Ge 
= 
2 


PPPI3272 
BSRRES 
RRR 
Set 
PERRESR 
fake 
ae8 
thunares 
REPRE 
5 


3 
: 
28 


O20122 EM71: .ASCIZ “HE OR ERR ON RD/FMT STARTING FROM <DSK-ADRES>” 
046506 ° 


8 
3 
a 
es 
PRERARE 
seo 
Ging Ero 
RELRLE 
Syeoe 


7505 
7507 
7508 027000 051505 000076 
027004 051127 047117 020107 EM72: .ASCIZ /WRONG DRIVE ID IN RKDS AFTER SEEK/ 


ee eee se Se 
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C RROR MESSAGES 


027034 
0e7042 


/HROWRE POLL-DRV ID BITS(13-15) SHLDBE CLR/ 


/HROWRE POLL-INTRUPTING DRIV # NOT PRSNT/ 


/ORIV # DIDN’T INTRUPT AFTER HRDWRE POLL/ 


/SCP DIDN’T SET AFTER SEEK WAS DONE/ 


/RKDA CHANGD AFTER DRIV RESET/ 


BR SoRR 


/DATA EROR AT WORD#/ 


-ASCIZ /CNTRL RDY DIDN’T SET AFTER RD CHK/ 


-ASCIZ /ERR OR HE ON RD CHK/ 





MAINDEC-11-DZRKK-C MACY11 27(732) 


DZRKKC. 


7601 


Bee eRea Res 


atattatatatatatatas 
WONTU CWO 


RR 


i 


Pll 


027451 
02 


ERROR MESSAGES 


2 
£ 


Too 6 
a 


020105 051117 


z 8 


28 88 


R22e 
i 

ARE RE 

£ 

& 

5 
S5N5e 


8 
SUEREB RBS B 


2 
NI 
—&o 
mst 
£oO 
28 
Oo 
a 
oOo 


2 
uw 
R 
Tw 
ao 
x= 
oOo 
uw 
S 
oOo 
<£ 
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<= 
Oo 
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EM103: 


EM104: 


EM105: 


EM106: 


EM107: 


EM1i9: 


EM111: 


EM11e: 


EM113: 


EM114: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/CSE ON RD CHK/ 


/RKWC DIDN’T OVERFLO ON RD CHK OR WRT CHK/ 


/RKDA INCRMNTD WRONG ON RD CHK/ 
/RKBA CHANGD AFTER RD CHK/ 


“MEMORY WORD CHANGED AFTER RD CHK/ 


/CNTRL RDY DION’T SET AFTER WRT CHK/ 


7HE OR ERR ON WRT CHK/ 


/WRITE CHECK EROR/ 


/RKDA INCRMNTD WRONG ON WRT CHK/ 


/RKBA INCRMNTD WRONG ON WRT CHK/ 
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DZRKKC.P11 ERROR MESSAGES 


053440 
045510 


Ag? 


4 


-ASCIZ 


ase 8 


Fas 


-ASCIZ 


-ASCIZ 


/RKBA INCRMNTD, WITH IBA SET/ 


/WRONG MEMORY LOCATION CHANGED WITH IBA SET/ 


/RK11 DION’T INTRUPT WHEN IDE WAS SET/ 


/RK11 DIDN’T INTRUPT AFTER SK WAS INITIATED/ 


/SCP SET BEFORE SEEK COMPLETED/ 


/RK11 DIDN’T INTRUPT AFTER SK COMPLETED/ 


/CNTRL RESET DION’T CLEAR *SCP*/ 
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DZRKKC.P11 ERROR MESSAGES ; 


O304%6e Oe0le2 051447 
030470 000047 


03047 o4sSe2e 


030506 


030514 
030Se2 
030530 


/RK11 DIDN’T INTRUPT AFTER RD DONE/ 


oO 

Ww 
q& 
uw 
. 
oe 


Bee 
TUG) 
Po i+ f= poe 
Awe 


030534 /CNTRL RESET DIDN’T CLR REGISTR/ 
030542 

030550 
030556 


ALE 
ee ari 
Ul UT 
——Orr 
— £££ 


/RK11 DIDN’T INTRUPT AT CPU LEVEL/ 


=a 


/RK11 INTRUPTED AT WRONG CPU LEVEL/ 


7°ERR BET’ DIDN'T SET IN RKER/ 


77 
77 
7711 
77le 
7713 
7714 
7715 
7716 
7717 
7718 
771 


7HE OR ERR DION’T SET/ 


O4244O0 EM132: .ASCIZ /RKER EROR/ 


O44S02 EM133: .ASCIZ /NXC BIT DIDN’T SET/ 
ae 


-ASCIZ /RK11 DIDN’T INTRUPT ON SOFT EROR/ 


Banoo Ba 


oO 
Ww 





MAINODEC@11-DERKK=-C MACY E7(732) i6-SEP-76 16:00 PAGE 145 
DORKKC.PLL ERROR MESSAGES 


020130 EM135: .ASCIZ /MEX BITS INCRMNTD WRONG-RKCS/ 
044440 
052116 
047117 
051S$03 


QoQ 


‘WPS NOT CLEARY 


we to Gotototote 
eT OE TT OT eee ere 
Oo 
zt 
orm 
a 


maPne Bes 


‘DATA EROR ON TRANSFER FROM DISK TO TTY/ 


Neae 85 
RRRRA 


PFEUERH FBG KS 


b+ b-2 8 = 92 p+ 9 oH ob 2p 0-0 


= 


/*ORIV #° PRESENT, BUT NOT INDICATED’ 


RS 
Re 
2k 


22RR 
Roi 


apa 
}EOO NE 


7 NO BUSY ON OTHER HALF OF RK-OSF/ 


33 
03 
Q3 
03 
03 
03 
03 
03 
ne 
7759 Q3 
03 
03 
03 
03 
03 
o3 
93 
03 
03 


90 +b -2 6-2 b- & ~ & 2 & 2 9 BH = Bo b= b-- 


RISB OEREN 


ERROR DATA POINTERS 
000090 : ‘ SERRPC, SREGO,0 
091164 : , SERRPC, SREGO, SREG! ,O 


001164 ° SERRPC , SREGO, SREG! , SREG2, SREG3,0 
000000 


SERRPC 0 
SERRPC, $REGO, $REG] , SREG2, 0 


7760 
7761 
7762 
7763 
7764 
7765 
7766 
77e7 
7768 
77893 
777k 
7?re 
orm 
7780 
7781 
7782 
7783 
7784 
7785 
aes 
7788 


13 


SERRPC, SREGO, SREG! , SREGS, SREGS, SREGY, SREGS, SREGE, SREG?,O 


II 
Pat thet of 













DIRKKC.P ERROR DATA POINTERS 






34 031400 000000 

d¢ 

77% 

7797 

7798 

7799 .SBTTL 
cee 14 9 941520 DH2: ASCI2 
2 OS Oe Ge Be 

¢ 14] 104 104 

7804 031424 O4IS0S O4e2l26 ooo 

730s 

7806 031431 O40 020103 DH4:  .ASCIZ 
7807 031436 04, 05013 

7808 1444 193 Ge 05104 

7803 1452 O41 2126 C90 

7811 031457 O40 020103 DHS:  .ASCIZ 
rele 031464 020040 nati patepe 

ei 031472 042126 000 

7815 031475 O40 OSOO4O 020103 OH14¥:  .ASCIZ 
7BiB 931502 0 051040 04151 

sei Siete Saeets Gopiee pee 

7313 Baiese be sBa8 053513 9001 

7821 031532 oe004e 41520 000 OH21: .ASCIZ 
ras 031537 040 OSOO4O 020103 DH30: .ASCIZ 
7824 031544 020040 o45S22 

7825 031552 051503 De0049 d20040 

7826 O31 1105 O20040 

7827 O31566 d20040 051504 

7828 031574 000 

$856. 031575 040 OSO04D O20103 DH34: .ASCIZ 
7831 O3160e g20040 20040 o45S22 

7832 031610 OS1S04 000 

oa 031613 040 40 020193 DH3S:  .ASCIZ 
7835 031620 042523 026563 

7836 031626 047103 OSi1l2e4 000 

78328 931 050040 103 DH36:- .ASCIZ 
rea Os1eN0 Be 12 

7840 031646 047123 020124 047040 

7841 O31654 130 O4145S OS2116 

reve 031662 

7844 031663 OS0040 O20103 DHYO:  .ASCIZ 
7845 031670 O20040 O51440 o4:505 
7846 031676 C4 122 620 
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ERROR HEADERS 
/ PC REGADD RECVDY 


7 PC EXPCT RECVD/ 
7 PC -RECVD/ 


4 PC RKCS RKER RKWC/ 


4 PEs 


4 PC RKCS RKER RKDS/ 


7 PC RKDS/ 
7 PC SEC-CNTR/ 
4 PC PRSNT NXT-CNT/ 


7 PC SECTOR —RKDS/ 


-RKCS RKER RKDS 












-CYL. <DSK-ADRS: . SUR. .SEC/ 
CYL SUR 


2 ‘ 
& ts : 
g 7 eS Bee 5 
cu > e . m & : 3 
5. Z 3 =: 8 & ae 
-. & S 
3 & «> el  - ® et 8 
F - = 8 =. ns 3s U8 
o 3 3 $ 3 e ; 8 
b z 35 Pa = Ps a s 
_ MOoO0IMM™ Oo oor % cucu rw or ~™ om Tuo. Oo - 
G fae Fou ae Saas =e | She race auie a3 8 , 
foams Giieueams famesemiie Gee faase Getta fag 
= 980uMm0 =m or =\= wn Q , 
se Z2uo eee ae 8 RS aie & Sa ue Gurus ye &Y Gar ! 
28 _ -_ i — t— te —Us OC ever) _ _ iQ 4 } 
#2 Bus28 2e8ue : aie ze ae aia ped eee ng | 
fe oe Sees See 
sign = BiRgDs, O27 = 3 8854 Sains 88m 
E ise : aaaeNNd | Be & S898 shee 8 ss 


PDP AEA DR BARD STECEC DEER UDI DEDERERERREE DIODES 


C 





MAINDEC=11-D2RKK=C 


RECVO/ 
RKDA/ 
RKBA RKCS/ 


RKER ERR BIT/ 


EXPCT 
RKCS/ 
RKER 

RECVD 


Loc 
LEVEL 
RKCS 
RKCS 
RKCS 
EXPCT 


-ASCIZ 7 PC RKCS/ 


-ASCIZ / PC 
-ASCIZ 7 PC 
-ASCIZ 7 PC 
-ASCIZ 7 PC 


@ 
> 
-_ 
tad 
3 
= 
Qa 
Oo 
ao 
wo 
_ 
wo 
~ 
t 
ui 
i 
wo 
~ 


DH130: .ASCIZ 7 PC 
OH133: .ASCIZ / PC 


DH107 

DH1e26: 
DHI31: 
DH140: 


ei cote z 
a2 ae a 
Th m2 Gs A OS Gs a Es 


TE: 2 OE Gop PEER TBEP TESPORSRSEP 


1 O OH104: .ASCIZ 7 PC RECVD RKCS/ 
1 sk 
1 1S] 


MACYL1 27(732) 
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DZRKKC.P11 
oes :DATA BUFFER 
7964 032724 ooo4o0 OUTBUF: .BLKW 256. : HIS 256 A'y IS FOR 
ee gate RanereRS FROM 
98 THE DI 
‘ é . , 
7368 . 000001 -END 





mete ite Ye ae | 


4497 


3674 3793 4153 4239 


3644 
479362758 


Gle 
3223, 343512 


3134 
6264 


38 3 J ee Bar | peasaccus 
SRIGURNRRRENARED Tease 8 6y | gegNRReernacaEce 


Race Ne ene neries 2 Se NC UNER Tne ee oo 


I nn nn ee eS 


~ 

in 

st 

3 
ww 
— at 
@ 
$3 
iw 

_ a 
& 

wo 

oe 
A 
7 

- 
Rg 


MACY11 27 


CROSS REFERENCE T 


NAINDEC=11-DZRKK-C 


ee eeeece cee eee 


QoQ 
Ea PSSNIEBSSBE OAL Z ey r non opt 


COGDEDEEE ESCO EERE EET ET ETE EE TR 
DOMMAMMAMMAMMMOMAMMMAAMmMmmMmMm 


CN.RDY O21444 
CN.RST O21426 


DZRKKC.P11 





Hle 
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Pil -- USER SYMBOLS 





DZRKKE CROSS REFERENCE T 
COUNT 1795e 3384 3360e 3494" 3507% 4490 4493x S19S* S23es 
oa : 1798 bsege ba788 
= 
TRN 39 bes bert 6303 6314 63198 
CRLF = O0020 ge g £539 
DDISP = @sue- 1088 1870 
DDPCH 002600 1gi2e 1882 ©««1997% 2262 
DELAY = eee, gleg S140 «S888 71848 
Y ise 1 
D109 vee 18479058 
1 3 is? 78ils 
108 1 79148 
re 5 fies tent 1615 1629 1636 79258 
Bigs Greats ise) Ieee, Sete 
i 1664 ’ 
DHI31 03671 1672 1693 «79408 
DH133° (030617 1686 79458 
HIN «031475 11731707, 7euse 
Ne cme 
x) 
DHS1 1532 1 76218 
DHS 31837 13500 1207 1298 1312 1333 «413839 «#41510 1559 1566 1622 79238 
OHS4 1 1193 13149 1228 1363 14681 78300 
DH3S 1813 1235 348 
DH3e 1633 ibu2 78388 
OH = O31431 1186 1249 1270 1305 13% 1378 1390 1413 1454 1489 1591 1538 
150 168716731700 17ae 78088 
DHYO «O31663 i tau 
OMY = OSI7 II 1i7@ gel 128412811319 180318821714 7aN8 
OHS 31457 1365 78118 
OHS4 031786 Ti «1381. —s143S.—SsLNHS—Ss785788 
Hse «32085 1360 1387 538 
OHEY -O32172 1405 ® 
HEE + “032216 14 78888 
HE? 32054 wz 7Bgue 
OH74 = 030314 146g 14 172979018 
DiseLa OOLi¥e 10868 1870s 1e7es Ge7e  GeHae 
BRECET Borie 2768 WN YOES $294 S792 bUE3H ENOL «72377855 
kn ee - é 
G5° 5935 5583 in tS ET 
3083479 ee se: ne 42384 Pr 
a4 Gues 6 ude yeu? 70, u733 CY 4836 «4319s 
19 5250 1 sug OS e735 $7 6237 ¢ 
: £398 Bb a at a ele Zecte 7e5% Fels 
ORIVS 002602 iBije 1307, 147, See 203% 206% i te 793 
parvo 902610 eee «Poet «2038-2089 Ss2iee ~=s2ele «= 2ee02e?77S SOCEM GES C7280 
ORIVI 12 18308 
DRIV2 002614 18318 
ORIVS 002616 18328 
DRIV 002620 1338 
ORIVS 002602 18348 
ORIV, 02624 18358 








le 
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DZRKKC.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 


DRIV?  O02eS26 5832 
+ 7393 
266% 


ae 


Raz ap Res 


Ce el oe ee p= bs 


TSssoess ses 
5 


>= 
8 


oO 
iT) 
0 Op oo ee 
oe EE 
~ 
Rates 
$$ 
as 


ey 


Sh Eee RS Gahees 
2 
R 


i 
ae 


SR Senor sa Suns 


£ 


SBOURP ERE Soin cos SRRERES 
e 


~ 
™~ 
~ 


oo 
3 


SUOSBSR 


TS4 
EMTVE 
: 
EM 
Fn 
EN 
Fn 
EN 
FH 
EM 
Fr 
: 
En 
EM 
En 
FN 
FN 
: 
EM 
Fr 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
bf 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


HH SVRZOR 
tte 
— 0 &— B= bP &— b— + 0 bP = = 0 8 = = 8 bo be 0 br b= bb be 6 bs pp 


00 


gs 
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OZRKK CROSS REFERENCE TABLE -- USER SYMBOLS 
025062 1 73018 
cu ae 125 708 
EM33 02511 l220 73088 
EM3Y 133 lee? 73128 
E 1234 73168 
124 73ee8 
1 73es8e 
M40 1 1 73348 
EM4! 025331 lebe 73418 
EMY3 aeeue0 iss si3l 73478 
4 8 
Fs fesury est 
EM47 025600 1304 73768 
EmMSO OeSb4e i3i} 73838 
EMS! 025671 131 73888 
Eiee | Obert es ere 
EMSY 026034 1336 74098 
Emss 0261 1349 74208 
EMS6 beeeae 1359 74298 
EMS7 0ebe44 1368 74368 
EmM60 026302 1375 74428 
. EMB1 026341 ‘1382 PHYS B 
EMbe2 026376 13893 74SS8 
EM63 926410 1396 74588 
EM64 0264S4 1405 74658 
EM6S RsPai? ais 74728 
EMEE 563 141 ae 
EME7 026622 . 1426 74878 
—M70 026635 ll 133 74908 
EM71 026726 l ls oan is ed ee a a 
EM7e2 027004 14 75108 
—EM73 027046 1460 75178 
EM74 027120 1467 
EM75 027170 1474 
027303 righ eat 
Se = 000004 10358 7308 1868% 1879% 6589 6590 6592% 6595* 
FCHECK Q2e4S542 5775 7237% 7265 
FTITLE O0eS42 ei aerie ere 
= £eee2% U 10S3 1902 1935 1 1 2110 Si 2281 6124 6408 
7162 7163 7164 7165 7166 7168 7170 171 7172 7174 7176 
ly le gs Fish 71k 7188 
GT2eRG Oe042e2 pre 4937 yay Bat ste S066 5074 5080 S144 Srsa S225 
GT3SRG O20414 cai2 § tt 4 & 4 og3s e354 3521 3655 3803 414] 
GT4RG O2e0406 2208 2362 2387 es sou 2606 solh 57 2661 2670 2806 
3131 3geel 3342 351 41 3791 391 1S 3319 4042 4043 


“2, 5665 ee $898 61038 6240 6380 6500 
* 9892 3709 3711% 3717% 3778% 3788%  3872% 3951 


ee me = 
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OZRKKC.P11 CROSS REFERENCE T -- USER SYMBOLS 
INCXe 002554 17948) «=6e44S*# =6—a449e «= J626e = 398% §=6—S5755% = SB4s* 5927 S948 
TOTVEC= 000020 10408 185e%  1853% 
6 6. i a ? = 6B23 
Rees OO Pies FOB 
41 17518 4 
MSGY O02466 17568 2268 6695 
002477 17598 6681 
NOBRY  OONeL4 223 
QODEVN 002606 isise Bs4e S863 S886 602e8% 6029 
OUTBUF 032724 e762 = 2787s 282 31 2883 292 2927 985 3027 3009 3115% 
8 3308 83 3495% 349 3625 755 3938 3942 3946 
41949 = Heel = Yee? 4S] HSS «=O NSD = 43394] HGS 4354 
44 4438 4763 4803 480S 4917 76% 
S499% 5651 5871 $955 79648 


* e 892% % 4 # * % 3% 
s Six Side Sides S2btx S24bx $2562 S324 Sacdx SSG, SGEFE 
# * 641% SS* 3661% 3700% 791% *  3807% gs 
4O4e* Be 4414le .4151% 4161% 4176% 4180% 4184 4237% 4306% 4315s 
44Y15e 449Sx l1# 4648*% 4683% 470S5* 4708% 4782% 4793% j4930% 4937 
496 1% SOlix S0ec5* 5029 S066*% SO74* % 
Si60% 5S173% %$5177% %Si8il* SelOe Se2eSe Se3s0* Sea4* S2e60% S$30S* 
B* 5400 Syo4e S515* 5559* SEES 5681# 5792% 
$97ex 5991% 6050% 6053 * 606 6107% 612e8% 6206 6240% 3% 
* 6306% 6317% 6320% 6340% 6344% 6380% 6383% 6401% 6479 
6697% 6742e% 6791% 6798% 6805* 6819% 6821% 7024* 7227 7237% 
PFSTRT 004372 elée# 72 
YORV O02632 - 18398 S82e3% S827* 5954 5985 
PIRQ = 177772 hye} 
PIRQVE= 000240 10488 
PRO = 000000 969% 
PR1 = 000040 970% 
PRe = 000100 9718 ‘ 
PR3 = 000140 9728 
PRY = 000200 973% 
PRS = 000240 974s 
PRE = 000300 9758 
PR7 = 000340 9768 
Pou = 199778 aos 
= 
PWRVEC= hooao8 10418 1858% 1859% 7195% 7196% 7205* 7211% 7223%  7224% 
= 104407 1928 71718 
ROLIN = 104410 1956 71728 
RKBR’ Doseae hat 3120 gigs a2Me 93328 3499" 36278 
agaue 4134*# 4169 QI * 4eg 43928 32 44g4x 
4758 4917# SO0S9*  5293% Su4ie SS06% SS74e S652 57 
RKCS 002526 © 17748 2307% #2586 cb4e 271S# 2881 2982 126 
¥ e deat ‘14 oe. 3874 z 106 4146 
| 4 464 4756 4 4920% 492 4941 4993% 
Si2 5194 83 2 4 re * SS40# 553 sald 57328 
38 631 1s 16 365% 496 6536 5S6 47% 
RKDA 002534 17778 2030 2039% 2040 eleb* 2301% 2347% 2384 2396%  2436% 2524s 
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198 ecpe 2 20 
469% 2789% 





MAINDEC=11-DZRKK-C 
DZRKKC.P11 


R3 =%000003 


iat =%000004 


RS  =x000005 
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STACK = 001100 
START 002636 


TA 0 
START! O03216 
STKLMT= 177774 
Ste 003430 
ST3 003 
ST4 OO4146 
SWR 001140 
SWREG 000176 
SWO = O00001 
SWOO = 000001 
SWO1 = 000002 
SWO2e = O00004 
SWO3 = 000010 

-| SWOY = 000020 
SWOS = 000040 
SWOB = 000100 
SWO7 = 000200 
SWO8 = 000400 
SWOS = 001000 
SW1 = Q0000e2 
SW10 = 002000 
SW1i1 = 004000 
SWl2 = 010000 
SWi3 = 020000 
SW14 = 040000 
SWwiS = eine 
SWe = 000004 
SW3. = 00000 
SWwY = 000020 
SWS = O00040 
SW& = 000100 
SW7 = 900200 
SWB == 000400 
SWS. = 001000 
TBITVE= 000014 
TIMER O02562 
TKVEC = 000060 
TPVEC = QOO0064 
TRAPVE= 000034 
TRTVEC= 000014 
TSTEND O20240 
TSTRWS 021050 


TSTSIN 021204 
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ere br79' Grabs cree byey bree rue 
6817 68 Ay pest pas bg i0s peai* peas. 


7 7 
vele fel9 feed ‘feel eee 


e 
1869% 1871 1877# 1895 2016 2126 2140 
6600 6606 6613 6652 6660 6664 6667 


6670 


6540 6660 


6337% 6429% 6432% 6457% 6463% 6495*  6498% 
1857% 


$181 Seld $230 5559 $726  6333% 


7227% 


2145 
6670 


6160 
6980 


6404 
7017% 


6540 
7203 
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4 > sida “%Se0 WSs “Gal WII 4985 6=—s«S0S4 = =s«Si23 Ss Sel 2S S364 
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ae 
+o 


UNiINWUIUIUD 
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Pout 
Bdane 


8 


37518 


200200 
0-2 0-9 BO * 
ob ~p-- 
ow 


' 40938 
42818 
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ZEENOeR 


oe 


4558 45698 


Ewtaatatutpro 
fu 
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peeseore 
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SS8COAT 
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& 
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TYPOS = 
TYPON = 
TYPOS = 
TS& 


Seee 
ae 
ytstates 


~ 


BR 
seas 


eto 


eer 


Saute 
$SDADR 


SStetes 
on 


8 


e 


Oj ~30" > 0-9 —- OO” 
op ° 


2 


88R88 
—— 
[itt 
0 0+ C.J 0-0 
Oorrao cu 


Boone 


int Netetetetat 
SERSS- SB 
— £-Or-w 
sh $5 2 GS SE QE 


2138 


5838* 
64738 
4656 
6988 
£806 


1846 
10998 
10998 


71318 
2129 


68908 
60678 
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6127 


6032 


4677 
7137 


6815# 


6044s 


S604 
bb2b# 


6659 


6650 
6673 


7131 
6608+ 
3303# 


6776 





6669 
3877% 4833% 5198%  S556# 
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se 


v 


SRODE 
SROLIN 
SROOCT 
SRDSZ 
SREGAD 
SREGO 


6533% 
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$SETUP= 000117 19438 1951 1852. 1854 1856 1858 
-) l 
$STUP = 177777 ease 


Ee: BAB 


SSWRMK= 090000 
STIMES 001206 
$TKB 001146 


ILL Oe 
S4HOCAT= #xeeee U 
. 033724 348 9368 1 1864 19038 


5860 
6668 67518 
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MAINDEC=11-DZRKK-C MACY11 27(732) 16-SEP-76 16:00 PAGE 164 
OZRKKC.P 11 CROSS REFERENCE TABLE -- MACRO NAMES 


COMMEN 10478. - 
ENDCOM 7 ‘ P , * 2 
ERROR eva" S4ac SERS SEO3 SBP GPRS CSTSS20§ Seng Sees «Sees EST EER 
e7el e725 798 gei9 17 3 7 3 7 3 o Sats sare 
Sise Sas 1 Sit 1S 4 
1 14 151 161 1 4 3271 3e 3346 3353 
337 3335 3424 3440 3514 3523 3528 3535 356 ' 3658 sey 3676 3691 fat 
ites 3812 38 37 33 33 3935 34 wey 4043 
414 4155 4] 4] 4] 4] 4] 4132 4241 4263 4 431 dz}8 
4328 4336 4343 & 4400 4404 441 44) 4425 4434 4447 4e 
ies iBts ages 4614 49 4 ve. 4697 4710 47, 4734 4774 4784 
4 w 4 886 1 ui Yo44 4959 4963 5012 5027 5031 
M ao8 5 104 4S 61 175 5179 1 S219 S227 
14 l 0 5386 S402 S445 
5516 S569 5592 5604 S663 5684 5698 5727 5735 5747 5776 
5935 Sse 5976 5394 7238 
10478 
GETPR 10478 
GETSWR 879e 10478 18928 
MESAGE 21658 168 2e408 e242 23908 2392 24078 2410 25048 eS668 2568 26228 2624 
2687 © 36 r] cece Sars" # 3081 31748 3176 3e828 3285 
35688 — € r} 4087 419S# 4198 42748 4277 
4363 4449g 8 =—-445] orrae 4563 462S8 5 # 4738 48108 481 48928 4894 3s 
So3s48 51068 Sil Siss* 5188 Se7l# S27 S338 SS # S411 54768 4865479 
r ae Sblle S613 8 57658 76 $7808 5S S80le S804 
NEWTST 10478 cise 2240 2286 2333 2370 2390 2408 2505 es42 2566 2622 
2953 ‘+ 3174 3964 oss 4195 4275 4361 444g 
4625 4736 4810 4892 Goes 5034 5106 5186 5271 5343 5409 5477 S543 5611 
S765 5780 Sede 
10478 6877 7el6 7217 
PRIOR7 11298 4582 4619 4717 4798 4871 5535 S636 5872 
10478 6836 7197 
SEOPE. th 2180 2289 37 2355 2425 1 254 es 2629 2635 2749 
2969 3033 Sigs 3302 tal 5208 3751 S33 40 4291 4370 
4634 4742 620 4900 5043 Slle 5193 5278 5352 S421 5486 5552 S621 
5771 5788 5818 604S 
SETPRI 10478 
SETTRA gige 7163 7164 7165 7166 7168 7170 7171 7172 7174 7176 7178 7180 7182 
SETUP 10478 1843 2 
SKIP goa” 3548S RBCHSGSec]: «Sere, GdeaSs Ses GBs Sea S88B Sag « GEIS 
tose gan Stars Big? BBS 
SLASH 10478 
orARe id 10478 11 2166 1 22e4S 288 2 335 2370 2372 
394 2408 EE ite 2509 sui sE0 2566 558 22 5733 spe 2694 2734 
2846 e866 3 2368 30 3174 3192 aspe S444 3470 3 
3750 3860 386 3964 3971 4 40 4196 42 42 4280 4361 4369 444g 
4561 4568 4633 4736 4741 4810 4819 Boog 45) 
S111 ah 5271 S2 a3i3 535! S409 S420 5477 sags 5543 5sS1 5611 
5706 71 5770 57 787 S802 5817 6037 6570 6707 6755 6826 
6975 7072 7140 7193 7209 


ee ee ———— 
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C- 
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1 
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— . MACY11 27(732) 16-SEP-76 16:00 PAGE 165 
CROSS REFERENCE TABLE -- MACRO NAMES 


18658 


2331 2361 


Site 
é 
™N 


BaqcePass 


St 
Bas 


705 
191 


1975 = 2108 
1100=Sss 1101 
2333 ©2370 
S444 = 3569 
4969 = S034 
7166 = 7168 
e339 2461 
3723 3841 
5137 . $265 


6406 
1105 
ese 
4085 
5343 
7174 


2534 
4248 


2685 
4361 
S543 


7180 


2679 
444y 
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- Boa of mw mie me me 
cou 5 f ers? 5 ; eee Pg 5308 S318 

= Be be EB Be OF 

ASLB 6861 

ASR 24! 6171 6172 6173 6177 

Q i3ie 1919 136 ty 137k suey eo o053 
2674 tate see 2840 sass 29. Sead 
ne ae ea 
ee ee eae: 
$395 = sore 5528 i rey 5740 Poe 
bp oe oS Be Bi mh Gn mo 
gle 7031 l 7e42 ebe 3s 7264 

BCT 4855 p0Rs 6870 6954 70268 7069 7273 

at Se 2 7 
i ay mm oe ne GR a 
7029 7070S 7243 

ms 8 Gh ah Go ae Mb Re 

Blt 1330 201 eo} sie gio 14 cee 31 
3917 4O4S ey 4313 4318 4407 441 

1 S264 5689 

BIT. £35 6404 6540 6584 6598 6606 6613 665 

BLE 4881 

BLO 7095 

oe ee ue ag, he 
oo ue ey a 
oe os BB GL GR te a 
a ee OR Be 
ee 
5887 A Para ae i rae e538 
fe fe Ge oh ie ie aa f 

mo 8 Ga OR Be Be oe we 
‘ am me 

BR 1874 8§=691898 pit} 1917, 1925 4354 934 =: 1938 
2019 eee 9 2098 10 134 e261 


Spaee 





a3 8 


-~ 


& Rasenneos 


-C MACY11 eres) ge 6:00 PAGE 168 
CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


Sa 


ee. 


Sygeee sents 
se seeass 


9 


turer 
NW 
h-2 f= 
cor 


Ee 
oe 


ts 
Si 


RERSes8 


G Heseecsaes £ a BEAzRe 


8 


SuNe3 


SHR 
auparagsnay 


tae 
me 
2 


RuBnssoree ss 


F 
ro 
a 
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8 
as 


gaps 
es4g = eSS4 


mt 


Serle agri es 
a 


4135 413 4152 
4eS0 =} 4eSe 
43200 4 4327 
4388 4391 4392 
pale 4477 deae 
4635 464E 47 
u704 «4708s 
4763 «47644476 
B35 48364 
a i 
oS SO 
ay S441 zs 
eo Eu ee 
me ie ee 
23aR 5916 5917 
Bae 
6eSS 6260 6263 
pose Pedy 6457 
ey na fe 
E27 rete 6940 
ais 7123.0 7124 
i ie 
MOVB 4} 1693 133 
me be 
NEG e780 «= 6845 = 6929 
NOP 3879-5921 = 6064 
RESET 1881 6062 
ROL 6935 6937 6938 


| 
| 
! 


S380 


2586 
778 


J13 
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ROR 
RTI rere 462 4720 =: 4801 4848 4873 


RTS bee BEG «BGG BSEL 


fas 


TST 


wMH- INCOM’ ow 
WoRTO. Vor 
w) 
-_ 
uw 
ul 


ag 


Revi tsahy: 


7964 
7128 
6973 


Rich gS yacbe 


nS oS 
S58 


= 
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-EQUIV 
EVEN 
If 


 IFF 


eres 
6056 


6080 6062 
659 6600 
7S2 te: 
114 
71700=Ss 7171 
“ey 7216 
1624 1 
ein 
: 
ee 
2179s 2181 
2361 2370 
2483 2488 
ae 
A 
3174 8 3176 
; ea 
4196 = 4$198 
4444 a 
Se Se 
5186 5188 
S420 ares 
S623 48=—s SB 
5787 @65789 
6045 6051 
6578 6584 
6631 6707 
7072 
7166 7167 
7193 
911 1 
167 168 


2696 3862735 
me 
a 
4093 4094 
4363 4370 
6c 83864627 
4893 4894 
ae at 
; BD 
5782 48 $788 
6597 96600 
7051 7072 
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TET 
. IFTF 


. TIF 


- MACRO 


-MCALL 
-NLIST 


183 
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